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Primera 
,'- " plana 
Campeonato (¢Mercenario de asler Cornpuler. 
MOsica para tu ,4mstrad. Colossus Chess estd aquL 

pasos ;I 

Continuamos ana/izando /as tcnicas esenda/es de 
animadOn de f/guras en panta//a, los cua/es son un 
impresc/ndib/e predmbub para pasar, posteriormenle, 
a arras rods sofislicadas, que permilirSn dolor de vida 
a nuestros programas. 

Inteligencia 
artificial 
AMSTRAD emanal inaugura, con este arliculo, un 
curso sabre Inleligencia Artificial Creemos set/a 
primera revista que aborda esta gigantesca tarea, y 
has proponemos ensefiar a lodo el mundo coma hacer 
programas intetigentes, doldndoles :ara elto de/as 
herramientas adecuadas. 

I 
( I I' 
Para...PCW " 
Se acabaron los tediosos problemas de la facluraciOn 
((artesanah, gracias al programa que mostramos 
esta semana, y que cony/erie a un #256 en una 
herramienla de prestaciones comparab/es o super/ores 
a ordenadores de mucho mayor predo. 
• (, tl  ,ProgramAcci n 
Todas y coda una de/as ms sofislicadas fundones 
para el ralam/ento de elos, unas eistenles en el 
Basic y otras creadas par nosotros, junto con 
programas el'empb sencil/as y dtiles. 

Tenemos esa semana un programa verdaderamene 
excepciona/; se trafa de una comp/ea ho/a de c5lcub, 
con los ISgicas /imifadones que implica esar escrita en 
Basic, pero que resolverd, sin duda, Is problemas de 
ms de un usuario par muy poco d/nero. 
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I  -FERI , FOR ,tl 

iVen a conocer el apasionante mundo 
de los ordenadores Amstrad! 
Las m.s importantes empresas espaSolas y europeas 
del sector se dan cita en Madrid para presentar y 
ofrecer sus m&s recientes productos para AMSTRAD. 
Programas de acci6n, juego, aventuras... Programas 
educativos, de utilidades, lenguajes... Programas de 
gesti6n y profesionales... Cientos de titulos inditos... 
Perifricos, ampliaciones de memoria, emuladores, 

tabletas gr&ficas, digitalizadores, impresoras, I&pces 
6pticos, redes de comunicaci6n, discos duros, 
sintetizadores de voz, correo electr6nico, tratamiento 
de im&genes... 
Las Qltimas novedades editoriales... Todas las 
revistas... 
Una ocasi6n nica para conocer de "primera mano" los 
increibles ordenadores personales AMSTRAD y todo 
cuanto para ellos se produce en el mundo. 

I  FERIA 
INfORilATICA - 

e Patrocinada y org.anizada por 
AMSTRAD ESPANA 
, Horario continuo de 10:00 a 19:30 
• Entrada: 200 ptas. 
• Sorteo de Ordenadores AMSTRAD entre 
los visitantes. 

23-24 -25 MAYO 
Palacio de Exposiciones y Congresos de Madrid 
p.o Castellana, 99. 28046 MADRID 



DE NUEV • 

irrorsoft ha lanza- 
do un juego, denominado ((Biggles)), 
creado por el famoso Neil Dickson, 
en colaboraci6n con un <(progroma- 
clot musicab tres diseadores de 
software m6s. 
Biggles es un juego mezcla de ar- 
cade e inteligencia, que se desarro- 
Ila en varias partes, algunas de los 
cuales tienen mucho que ver con el 
film del mismo nombre. 
Coda una de las diversas partes 
del juego debe ser completada an- 
tes de poder acceder alas dem6s. 
Sin embargo, cuando se alcanza un 
determinado estado critico, podemos 
pasar a otra fase del juego comple- 
tamente distinta, en la cual necesita- 
mos unos recursos y una planifica- 
ci6n para solventarla que no tienen 
nada que vet con los anteriores. 

MASTER-HARD presenta en Espa- 
a el CONVERTIDOR DE MONITO- 
RES. 
Mediante este sistema MASTER- 
HARD ofrece al usuario de Amstrad 
o de cualquier otro tipo de monitor 

ASTRAO DISK 

COLOSSUS 
CHESS 4.0 

tro programa de 
ajedrez se incorpora a' la ya larga lis- 
to de simulaciones por ordenador del 
inmortal juego; se trata de Colossus 
Chess, creado por CDS Software 
Ltd y tridimensional, faltaria m6s. 
Posee las habituales caracterfsticas 
de este tipo de programas, como li- 
breria de aperturas, distintos niveles 
de juego, repetici6n de partidas, re- 
Iojes de tiempo trasncurrido y la in- 
teresante posibilidad de jugar en too- 
do supervisor, esto es, dos personas 
con el programa como 6rbitro. 
Colossus Chess existe en versio- 
nes de disco y cassette, y corre en to- 
dos los CPCs. 
Distribuye Serma 
Bravo Murillo 377, 3-A 
Tel. (91) - 733 73 11 
Madrid 

MERCEN, RI 
MASTER COMPU- 
TER, con la colaboraci6n de Micro- 
Byte, celebra el 2. ° Campeonato 
MASTER COMPUTER con el juego 
,MERCENARIO. Tendr6 lugar en los 
locales de MASTER COMPUTER en 
el Centro Comercial El Bulevar en La 
Moraleja (Alcobendas). Habr6 pre- 
mios para los mejores y regalos pa- 
ra todos los participantes. El precio 
de la inscripci6n ser6 de 200 ptas. El 
campeonato se celebrar6 el s6bado 
14 de junio alas seis y media de la 
tarde. 
 -m ; w m m m : m m m 

Master computer est6 en: 
MASTER COMPUTER 
CENTRO COMERCIAL, LOCAL ! 5. 
URB. CIUDAD STO. DOMINGO. 
CTRA. DE BURGOS, KM, 28. ALGETE 
(MADRID). 
TELEFONO (91) 622 12 89. 

(incluido el sistema Americano) la po- 
sibilidad de convertir su monitor tan- 
to en COLOR como en FOSFORO 
VERDE en un completo y perfecto re- 
ceptor de televisi6n o terminal de vi- 
deo. 
El sistema comercializado pot 
MASTER-HARD incorpora un selec- 
tor de canales y una conexi6n para 
aparato de video. 
Con una sencilla instalaci6n, con- 
seguir6 ver en el monitor de su or- 
denodor, tanto su programa como 
su pelicula favorita, mejor que en su 
televisor normal gracias a la alto de- 
finici6n de los monitores. 

MASTER-HARD 
CI MAGDALENA, 213 
FERROL 

I1/IU$1CA PARA AMSTRAD 

Sma Computers, 
una casa de software inglesa bien 
conocida en el mundo de Amstrad 
por su amplia gama de programas, 
acaba de lanzar en Inglaterra su 
programo Music Minstrel, compati- 
ble con toda la gama CPC. 
Se trato de un editor musical, que 
permite tocar mOsica en el Amstrad 
usando la notaci6n estgndar, esto es, 
basada en el pentagrama. Dicha 
mOsica, adem6s de escucharse, pue- 
de modificarse y guardarse en disco 
para posterior uso. 
Minstrel permitir6 el uso de las tres 

voces simult6neamente, usando a to- 
pe las facultades polif6nicas de los 
Amstrad. 
Music Minstrel es un programa re- 
gido por menOs, al parecer muy sen- 
cillo de usar y altamente recomenda- 
do para compositores musicales; por 
Io menos esa clama a los cuatro vien- 
tos Jon Day, director de ventas de 
Kuma Computers. 
Existen versiones en disco y casset- 
te, al precio de 19.95 # y 14.95 #, 
respecfivamente. 
Kuma Computers Ltd. 12 Horses- 
hoe Park. 
Pangbourne. RGB 7 JW. tel6fono 
073 57-43 35. 
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* Presenta: el universo del software, 

La ms moderna base de datos 
DELTA, su,p,e,rndose a si rnisma, 
"DELTA -F ', desarrollada para 
CP/M por COMPSOFT con todd 
en espafioL 
Disefia sus propios ficheros; des- 
de un simple fichero de nom- 
bres y direcciones basra su pro- 
pio sistema contab/e. El formato 
standar DIE permite intercarn- 
biar datos en DELTA, desde /as 
hojas de cJlculo CRACKER II, 
etc.., y viceversa. Intercambio de 
datos con la mayoria de los tra- 
tamientos de texto cored NEW- 
WORD para MAILING. 
Incluye un sencillo y funcional 
sistema de impresi6n de etique- 
tas con: hasta 5 columnas de eti- 
quetas, 65 caracteres por etique- 
tas, 20 lineas con 3 campos cada 
una. 
• PROGRAMABLE Y RELACIO- 
NAL. 
• flCHEROS INDEXADO5. 
• HASTA 90 CAMPOS 6 2000 
CARACTERES. 
• MULTIPLESSISTEMASDEBUS- 
QUEDA, 8 CLAVE5. 
• FICHEROS DE HASTA 8 
• 8GRUPOSDE TRANSACCION 
POR REGISTRO. 

BASE 
DE DATO5 

17.850 pts. 

EDITOR 

Programa de tratamiento de tex- 
tos mejorando todo Io anterior. 
Manual y programa en espafiol, 
que le ensefiar#n con facilidad y 
rapidez Io m#s avanzadoen pro- 
cesadores de textos. Compatibi- 
lidad funcional con WORDSTAR 
incluyendo rnuchas capacidades 
adicionales. 
Tiene an potente MA IL-MERGE 
con opci6n de selecci6n de des- 
tinatarios por cr[terios base de 
datos, creaci6n de documentos, 
impresi6n de etiquetas. Utiliza 
todd el espacio de disco. Ensam- 
blaje de textos, sustituciOn, etc., 
de la forma mJs fJcil: autohace 
copias de seguridad, iNUNCA 
PERDERA UN TEXTOI 
• 1, ACENTOS, DIERESIS, ETC... 
• PRESENTACIONEXACTAkTqPAN- 
TALLA DEL FUTURO DOCU- 
A4ENTO IMPRESO. 
• INTERCAMBIOSDEFICHERO5 
CON CRACKER. 
• VARIABLES SUSTITUIBLE5 EN 
IMPRESORA. 
• POTENTE CALCULADORA. 
• COMPROBADORORTOGRA- 
FICO Y GRAN DICCIONARIO 
(45.000 TERMINOS AMPLIA- 
BLES). 
• POSIBILIDAD DE LECTURA DE 
FICHERO5 DE DELTA, CARD 
BOX, SUPERCALC, DBASE 
ETC... 

TRATAMIENTO 
DE TEXTOS 

17.850 pts. 

DISTRIBUIDOR EXCIUSIVO PARA ESPAA 

El CRACK de las hojas de clcu- 
Io, la que deja detrSs al resto. 
Funciones nunca vistas, forma- 
teo de fechas, salvaguardia con- 
tinua sobre un fichero. Realiza 
• autom$ticamente copias de se- 
guridad. Adems de las tradicio- 
nales funciones, CRACKER II 
posee funciones 16gicas, estadis- 
ticas y de alta matemJtica. Inter- 
cambia datos con NEWWORD, 
bases de datos y la mayoria de/as 
hojas de clculo. 
• CELDAS PROGRAMABLES. 
• FUNCIONES ESPECIALES: 
fecha, dias; desde y hasta la fe- 
cha de la semana, del ado, lapso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 
• 515TEMA DEAYUDA ON-LINE. 
• SUMA CONDICIONAL. 
• TOMAR DECISIONE5 EN LA 
HOIA. 
• 18 MODOS GRAFICOS DIS- 
TINTOS. 
• TRADICIONALES FUNCIONES 
MATEA4ATICA5 YAMPLIACION, 
FUNCIONES ESTADISTICAS Y 
L OGICAS. 
• GENERA GRAFICOS EN BASE 
A L OS DATO5. 

HOJA 
DE CAI CUL O 

17.850 pts. 



Infor 

• 
a 

estas son sus " s r " ll, 

NUCLEUS mds que una estrel/a 
una conste/aci6n; tres ESTRELLA5 
en un 5UPERPROGRAMA, la so- 
luci6n a cualquier aplicaci6n por 
compleja que sea, NUCLEUS es 
GENERADOR DE PROGRAMAS, 
BASE DE DATOS Y GENERA- 
DOR DE INFORMES. 
Toda /a informaci6n es multi-in- 
tercambiable y de fibre acceso 
pot cualquiera de los demds 
Pbrogramas. Asi los datos de la 
ase los condicionamos y uti/i- 
zamos en el generador de pro- 
gderamas y los imprimimos a travs 
I generador de informes. 
• GENERADOR DEPROGRAMAS 
EN MALLARD BASIC. 
• CREACION DE BASES DE DA- 
10S RELACIONALES. 
• GENERADOR DE INFORMES. 
• DISE/ADOR DE FORMATOS. 
• DISE/(fADOR DE PANTALLAS. 
• CODIGO FUENTE DE LIBRE 
ACCESO Y LIBRE DE ERROR. 
• DISEI(/A SU PROPIO SISTEMA. 

• MAILMERGE. 

La revoluci6n del pensamiento, 
BRAIN5TORM es un programa 
que piensa con Vd. 
El compafiero ideal para el em- 
presario, director o cua/quier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece- 
saria para su organizaci6n. El 
programa que se ha standariza- 
do en Ing/aterra, tan necesario, 
6dl y popular como una base de 
datos o un tratamiento de textos. 
• ORGANIZA POR RANGOS. 
• ACCESO DESCENDENTE POR- 
MENORIZADO. 
• PLANIFICACIONA NIVEL DIA. 
• DECISIONESA LARGO PLAZO. 
• REVISION DE PROBLEMAS. 
• SIMULTANEIZACION DE TA- 
REA5. 
• PROCESO TOP/DOWN. 

Piii... su ordenador /e comunica: 
La revo/uci6n de las comunica- 
ciones, de la mano de OFITE5 
INFORMATICA, lie M a Espafia. 
El nuevo mundo de las comuni- 
caciones dig#ales Io tiene a su 
disposici6n, las redes de transmi- 
si6n e/ectr6nica digitalizada, con 
su PCW8256o PCW8512a travs 
de un interface RS 232-C con 
otros ordenadores, redes de trans- 
misi6n de datos, etc..., Vd. podrJ 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 
• TRANSICIONES DIRECTAS EN 
RED. 
• COMPATIBILIDADCONNEW- 
WORD. 
• POSIBILIDADES DE TRANSMI- 
SIONES VIA MODEM, RED 
TELEFONICA. 
• COMUNICACION INSTANTA- 
NEA. 

GENERADOR  
DE PROCRAMAS 

26.780 pts. 

ORGANIZADOR 
DE IDEAS 

17.850 pts. 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
 d. fiene alsuna dificultad para obtener los programas, puede 

COMUNICACIONES 

17.850 pts. 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 

Avda. Isabel II, 16 - 8  
Tels. 455544 - 455533 
T61ex 36698 
20011 SAN SEBASTIAN 



ELE "/  ARCHA" 

A SUS 

• ' FICOS 

$i ha seguido nuestros ort(culos onteriores no le 
ban de resultar de$conocidos coda uno de los 
caracteres clue su Amstrad tiene incorporodos. 

debia visualizar el simbolo del car6cter aso- 
ciado al n0mero 7. 
Pero sin embargo, no vemos nada. Sola- 
mente oiremos un pitido producido par el or- 
denador. Cmo es esto? 

iuro que yale resu/- 
ta muy thai poder dibujar en un determinado 
unto de la panla//a cua/quier sfmbolo de 
que ya est6n definidos en /a memoria de/or- 
denador. Don.Sonridta -o "/"-HE$ (224]- 
resulta ser un vie/o conocido suyo. 
Pues bien, vamos a intentar dar vida a to- 
dos estos graficos, o par/o menos a a/guno 
de e#os. Ser6 coma treat una pequefla 
cu/a de dibu/os animados poniendo (en mo- 
vimiento a Don Sonrisitas o a/(ofienl- 
gena de turno y converfir nuestro monitor 
en un ¢cuadro vivace. 
Par si acaso se habfa o/vidado de nuestro 
amigo, teclee: 
PRINT CHRS (224) 
pulse/a redo RETURN y de nuevo tendremos 
en acd6n (de momenta est5 parado} una ca- 
ra que nos sonfie desde la pantalla, iHola! 

E1 Amstrad incluye su 
juego de caracteres 

Conviene recordar que dentro del ordena- 
dor hay ya definidos 256 caraderes distintos. 
Son todos los CHRS(NUMERO) a los que po- 
demos acceder. 
Cada uno de elias est6 perfeclamente Ioca- 
lizado par un ngmero internamente y que he- 
mos Ilamado su c6digo ASCIb. 
Par ejemplo, nuestro Don Sonrisitas tiene el 
numero 224 coma c6digo ASCII; Ja letra 
mayOscula tiene el 79, o al (<1)) le han aso- 
ciado al c6digo nOmero 49. 
Pero esto no es todo. Tambi6n existen unos 
caracteres de (¢anlrob que son un poco di- 
ferentes de los anteriores. Escriba ahora: 
PRINT CHRS(7) 
y observe Io que ocurre. ,u aparee en 
la pantalla? A primera vista parece que se 

8 A, IICOHOBBY AMSTRAD 

Caracteres de control 

Muy sencillo. El car6cter correspondiente al 
c6digo 7 es de control. No produce ningOn 
simbolo cuando se le envia a la pantalla, sino 
que el Amstrad los entiende coma unas 6r- 
denes que debe cumplir. En este caso le esta- 
mos diciendo que tiene que generar un piti- 
do, par eso no visualiza nada. Hemos cam- 
biado un efedo 6ptico par un sonora: iQu 
maravilla! 
Y no es el Onico. Disponemos de varios de 
estos caracteres de control con los que pode- 
mos hacer avanzar la posici6n del cursor un 
lugar-CHRS(9), asignar un color al borde de 
la pantalla- CHR$(28), o borrar cualquier 
texto mediante un sencillo: 
PRINT CHRS(12) 
Los c6digos que tiene osignados son los com- 
prendios dentFo el moFgen e 0 o 31 y le 
recomendomos que tenga muco cuidado ol 
utiliZOFIOS ya que los resultodos obtenidos po- 
dF{an SeF neostos. 
Tompoco debe FesultaFle nuevo o sOnOFle a 
chino si le decimos que no s61o podemos dis- 
poneF de todos estos caracteres yo definidos 
sino que es posible cFeor, si nuestFa 
OFfiSfiCO do poro tanto, todo un coniunto de 
elias a nuestra medida. 
.Se siente capaz de ir dando farina a coda 
uno de los gr6ficos que compondr6n ese iue- 
go que no hemos vista todavia en ning0n si- 
tio. Va a ser el n0mero unm en las listas 
de los (<m6s maravillosos y nosotros sus auto- 
res. ;Oe acuerdo? 
Y ya que hemos recordado, a vuela pluma 
y muy par encima, que poseemos un amplio 
grupo de simbolos para visualizar, pues va- 
mos a ponerlos (<en marchmx 
Una vez elegido el caracter, recuerde que 
era: 
PRINT CHRS(224) 

.1- 
• ILl  ' 
m 

I nm 



II 

que podemos hacer para conseguir que se 
mueva por la pantalla? P6ngase a pensarlo un 
momento y se sorprender6 de la cantidad de 
formas distintas que se le ocurren. 
La m6s sencilla es colocar el cursor en dife- 
rentes puntos de la pantalla y en ellos impri- 
mir el simbolo que queramos. Se acuerda de 
c6mo se escribia en una determinada posici6n? 
Sencillo. ColocObamos el cursor de textos en 
el lugar elegido por medio de una instrucci6n: 
LOCATE x,y 
donde x era la columna e y la fila de 
la parte de la pantalla donde queriamos vi- 
sualizar un texlo. 
Y despu6s s61o nos quedaba imprimir Io que 
quisi6ramos. Teclee: 
LOCATE 5,2:PRINT CHRS(224) 
y si no falla nada aparecer6 Don Sonrisitas en 
el punto de cruce de la columna 5 y la fib 2. 
Bueno. Si vamos cambiando esta pasici6n 
a Io largo y ancho de la pantalla parecer6 que 
nuestro amiga se est6 moviendo. 
Introduzca en la memoria de su ordenador 
el Programa I, procurando no equivocarse al 
teclearlo, y/,que ocurrir6? 

Programa uno 
Antes de ejecutarle vamas a analizar des- 
pacito qu6 es Io que hate. En la linea 30 co- 
Ioca el cursor de textos en la posici6n que tie- 
ne por coordenadas 1,1 y alli aparece nues- 
tro car6cter. 
En la 50 hace Io mismo, pero en esla oca- 
si6n el punto elegido es el 3,6. 
Las lineas 70 a 1 O0 repiten el proceso situan- 
do e imprimiendo el simbolo que tiene c6diga 
224 en otros dos lugares diferentes dentro de 
la pantalla. 

I0 REM PROGRAMA I 
20 CLS 
30 LOCATE !, I 
40 PRINT CHR$(224) 
50 LOCATE 
aO PRINT CH$(224) 
7<I LOCATE 4,5 
80 F'R|NT CHR$<224) 
90 LOCATE 18,20 
100 PRINT 

Con esto no vamos a obtener ninguna sen- 
saci6n de movimiento ya que todos ellos van 
a permanecer en el lugar donde los hemos es- 
crib. Busquemos la soluci6n. 
El fallo est6, entonces, en que una vez que 
han aparecido en la pantalla se quedan ale 
Si conseguimos hacerlos desaparecer despu6s 
que los hemos visualizado, parece que nues- 
fro problema se Jr6 con ellos. 
Y, hay algo mejor para borrar un car6c- 
ter que escribir un espacio en blanco encima 
de 617 Intentemos hacerlo. 
Basra con volver a situar el cursor en la po- 
sici6n donde aparece Don Sonrisitas y alli im- 
primir un espacio. Eche un vistazo al Progra- 
ma II y ver6 en la pr6ctica esta posible sob- 
ci6n. 

Programa dos 
Si Io ejecuta constator6 que no Io hemos con- 
seguido del todo. Lo hace con tanta rapidez 
que casi no podemos apreciar c6mo se des- 
plaza por la panlalla. 
El Onico resullado que podemos observar es 
que aparece fugazmente en la primera posi- 
ci6n y casi inmediatamente yale encontramos 
en la Oltima. Luego, tampoco conseguimos Io 
que queremos. 
Piense ahora un poquilo.,C6mo podrbmos 
hater que este movimiento tuera un poco m6s 
lento? 
Se acuerda de Io que es un bucle retarda- 
dor? Se trata sencillamente de un bucle FOR... 
NEXT en el que hemos suprimido las instruc- 
ciones que tendrian que repe|irse. Hemos eli- 
minado su cuerpo. 

I I' REM PROGRAMA 
20 CLS 
",0 i OCATE I, I 
40 PR|NT CHR$(224) 
50 LOCA I - I . I 
6n PRINT 
70 LOCATE 
80 PR I NT CHN$ (224 
90 LOCATE 
100 PRINT" " 
1|0 LOCATE 
120 PRINt CHR$(2'4) 
130 LOCATE 
140 PRINf .... 
150 LOCATE 18,20 
160 F'RINf CHR$(224) 

Este bucle girard sobre si mismo repiti6ndose 
tantas veces como determine su variable de 
control. No hard nada, simplemente tardar 
un cierto tiempo en ejecutrse, tiempo que nos 
va a retrasar la marcha del programa. 
Si colocamos un bucle de este tipo en el si- 
lio adecuado, conseguiremos mantener en la 
panlalla el car6der durante un rtilm an 
poco ms largo para luego hacerle desapa- 
recer y visualizarle en otro punto. 
Pues, manos a la obra. Situemos este bucle 
inmediatamente detr6s de cada instrucci6n 
PRINT y veamos Io que ocurre. En el Progra- 
ma III asi Io hemos hecho y los resultados aho- 
ra ya son otros. 

Programa tres 
En realidad colocamos una Ilamada a la su- 
brutina de retardo (GOSUB) en las lineas que 
siguen a cada uno de los PRINTs (lineas 40, 
70, 100, 130, 160, 190 y 220). 
La subrutina est6 formada Onicamente por 
el bucle de retardo -lineas 240 y 250- y la 
instrucci6n RETURN de la 260 cuya misi6n es 
devolver control al programa principal exac- 
tamente a la linea o sentencia que va detr6s 
de la Ilamada). 

f[COHOr AMSTRAO 9 



El resto del I]rograma es exactamente igual 
que el anterior con la Onica diferencia del END 
que nos encontramos en la linea 230 y que ha- 
ce que la ejecuci6n, una vez que ha termina- 
do de realizar Io que nosotros queremos, no 
contin0e par la subrutina. Separa la misma del 
programa principal. 
No podemos decir que ahora Don Sonrisi- 
tas se pase par la pantalla de un modo conti- 
nua y armonJoso, pero reconozca que 
poco a poco Io vamos ya consiguiendo. Inten- 
temos mejorarlo. 
Qu6 le parece si tratamos de crear un mo- 
vimiento en sentido horizontal? La caracteris- 
tica comgn a todos los puntos de una linea pa- 
ralela al eje de coordenadas (x es que es- 
ton en la misma ilia. O dicho en otras pala- 
bras, la coordenada (y es igual para todos. 

I0 REM PROGRAMA Ill 
20 EL5 
30 LOCATE 
40 PRINT 
50 GOSUB 240 
6(I LOCATE 1,1 
70 PRINT 
80 GOSUB 240 
90 LOCATE 
I00 PRINT CHR$(224) 

110 GOSUB 240 
120 LOCATE 
130 PRINT" " 
140 GOSUB 240 
150 LOCATE 45 
160 PRINT CHR$(224 
170 GOSUB 240 
180 LOCATE 4,5 
190 PRINT 
200 OOSUB 240 
210 LOCATE 1820 
220 PRINT CHR$224 
230 END 
240 FOR retardo 1 TO 500 
250 NEXT retardo 
2bO RETURN 

Entonces, si hacemos que la coordenada 
 cambie de valor actuando coma varia- 
ble de control de un bucle FOR... NEXT y una 
de las instrucciones del cuerpo del mismo es: 
LOCATE x, 12 
quiz0 hasta consigamos que nuestro simbolo 
se mueva en sentido horizontal. Con ese fin 
hemos escrito el Programa IV. Teclelo y iaver 
que pasa! 

Programa cuatro 
En cada vuelta del bucle vamos a situar el 
cursor en la posici6n fijada par la instrucci6n 
LOCATE x,12 -lineas 60 y 100. Pero, par ser 
(x la variable de control, su valor se va a 
ir incrementando en una unidad cada vez que 
Io repitamos. 
Y, ;.entre qu valores va a oscilar? 
A esta pregunta has contestar6 la linea :30:1 
a 39. 
Con esto correremos todos los puntos de la 
linea excepto el 01timo de la derecha, que es- 
taro situado en la columna 40. 
El Oltimo punto donde situamos el cursor 
dentro del bucle es el 39,12, ,de acuerdo? 
10 COHOSr AMSTRAD 

10 REM PROGRAMA IV 
20 CLS 
30 FOR ×=I TO 39 
40 LOCATE 
50 PRINT CHR$224) 
60 GOSUB 130 
70 LOCATE ×,12 
80 PRINT" 
90 NXT × 
100 LOCATE x12 
II0 PRINT Cl4R$(224) 
20 END 
130 FOR retardo=1 TO 500 
140 NEXT retardo 
150 RETURN 

Alli escribimos primero nuestro carcter y des- 
pus un espacio en blanco, o sea, Io borra- 
mos. Es decir, que si no hubi6ramos aadido 
las lineas 100 y 110 a este Programa no nos 
quedaria ningOn resto de su ejecuci6n en la 
pantalla. 
Con elias Io Onico que conseguimos es situar 
el simbolo elegido en la Ottima columna de la 
ilia 12 y dejarlo alli escrito definitivamente. 
El valor contenido en la variable x en la 
linea 100 ser6 el que tenga a la salida del 
FOR... NEXT. Cu0ndo dejamos de repetir las 
instrucciones contenidas dentro de este bucle? 
En el momenta que la variable de control se 
salga de los limites establecidos: 1 y 39. 
Coma el paso (o STEP) es 1, el primer valor 
fuera de rango ser0 el 40, asi que la linea 100 
nos colocar6 el cursor de textos en la posici6n 
40,12, que es la que nosotros queriamos. 
No pase par alto la Ilamada a la subrutina 
de retordm que hemos colocado entre las 
instrucciones de escritura y borrado- linea 60. 
Con ella conseguimos, coma antes dijimos, 
que el movimiento sea un poco m0s lento y par 
Io menos podamos apreciarlo. Quite del Pro- 
grama dicha linea y ver6 c6mo nuestro car0c- 
terse desplaza mucho m0s r0pido par la pan- 
talla. 
Si nos Io permite v6mos a sugerirle una pe- 
quea idea. Por qu6 no intenta cambiar el 
programa para que usted mismo pueda de- 
terminar la velocidad del movimiento? 
Aada ta linea 25: 
25 INPUT "VELOCIDAD DE 1 A 10"; 
velocidad 
y cambie la 130 par: 
130 FOR retardo= 1 TO 500-50*velocidad 
y Io habremos conseguido. Cuanlo m6s peque- 
o sea dicho limite superior, el bucle girar0 
menos veces, el retardo ser0 menor y par tanto 
el m6vil se desplazar6 m0s r6pidamente. 
Otra forma de hacer que (algm se mue- 
va horizontalmente par la pantalla sin tener 
que escribir un espacio encima del car6cter ca- 
da vez, es imprimir uno de los dos simbolos 
a la vez y uno a continuaci6n del otro. 

Programa cinco 
Analicemos su labor con un determinado 
contenido de x, par ejemplo el 5. 
Cuando la variable x vale 5, el cursor de 
textos se sit0a en la osici6n 5,12 -columna 

5, fila 12- y alli escribe un espacio en blan- 
co. El punto y coma existente has est6 dicien- 
do que a continuaci6n y totalmente 
clo a 61 coloque a Don Sonrisitas. ,l:n qg 
posici6n Iohar6? 
La respuesta es bien sencilla: en la misma 
ilia pero una columna m0s a la derecha, o sea, 
en el punto 6,12. 
Pasemos a la siguiente vuelta del bude. Aho- 
ra la variable del control x tendr0 un va- 
lor igual a 6. Par tanto, la instrucci6n LOCA- 
TE de la linea 40 colocar0 el cursor en el pun- 
to de coordenadas 6,12, que es donde esta- 
ba escrito nuestro CHRS(224) con ta anterior 
pasada del bucle. 

iO REM PROGRAMA V 
20 CI S 
"I FOR x=l TO 39 
40 LOCATF x, I 
50 PRINT .... ; CHR$ (224  
60 GOSUB 90 
70 NEXT × 
80 END 
90 FCIF r,d}-| TIt 
100 NEXT retardo 
110 RETURN 

Y alli justamente imprime un espacio en blan- 
co, borrando Io que anleriormente se estuviera 
visualizando en ese punto. ,¢omprende? 
A continuaci6n coloca el car0cter que he- 
mos elegido en la siguiente columna y conti- 
n0a repitiendo el bucle. 
Una advertencia. Hay que tener mucho cui- 
dado a la hora de componer la linea que con- 
tenga la instrucci6n PRINT. La que hemos usa- 
do en el Programa V solamente vale para es- 
te caso, cuando el objeto se mueve en una li- 
nea recta horizontal y de izquierda a derecha. 
Para otro diferente habria que analizar la ma- 
nera de hacerlo, no Io olvide. 

Programa seis 
Vamos a emplear, coma dijimos antes, <bu- 
¢le coma variable de control del FOR... 
NEXT formado par las lineas 30 y 110. 
En la 40 y la 50 obtenemos los valores que 
va a tener el punto donde vamos a escribir el 
car0cter en cada repetici6n. 
A continuaci6n situaremos el cursor -lineo 
60- y olli visualizaremos da sonrisa m6- 
vib para, despu6s de Ilamar a la rutina de 
retardo, volver a colocar alli el cursor y escri- 
bir ahora en el mismo punto un espacio en 
blanco que nos borra Io que anteriormente hu- 
biera escrito -linea 100. 

I0 REM PROGRAMA 
20 CLS 
30 FOR bucle=! TO 20 
40 x bucle*5 
60 LOCATE x 
70 PRINT CHR$(224 
80 GOSUB 150 
90 t OCATE :, y 
100 PRINT" 
ii0 NEX bucle 
120 LOCATE 
13n PRINT CHR$(224) 
140 END 
50 FOR retardo I TO 500 
160 NEXT retardo 
170 RETURN 
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Como experimentado mercenario cwdadosamente entrenado 
en las ates marciales, debes curnplir la rnisi6n qu¢ te Ina sido 
encomendada: robar el disco que con la informacidn de los re- 
behJes tiene el (;ran I)ictador. 

ROCK'N 
LUCHA 

-- 

ROCK'N LUCHA 

El primer jue#,o de lucha libre llecho para ordenador. Ms de 
25 movirnientos diferentes te permitirE hater todo tipo de ]la- 
ves: desde ]a sujecci6n de espaldas hasta la voltereta de hom- 
bros, pasando por los mismos programadores del ]egendario 
"Exllloding Fist", 

WAY  F THE TIGER 

Entra en el mudo de los samurais. Mantn la calma mientras 
el movimiento y las rutinas de combate te transportan a nive- 
les que nunca pensasteposibles. Experimenta los sorprenden- 
tes efectos del 'Triple Scroll" mientras intentas mejorar tus 
tcnicas de lucha cuerpo a cuerpo, con espada samurai o con 
rail posibilidads mils. 



PING-PONG 

AMSTRAD 
Schneider) 
464 
664 
6128 

I.!1' ' :L 
Un desafio medieval en tu ordenador. Transp&tate a la Edad 
Media y conviertete en caballero de la Mesa Redonda demos- 
trando tus habilidades en el romeo. Lucha a espada, ballcsta, 
]anza. mazas, arco. hachas y con todas las armas propias dc 
aquella fant;istica 6poca. 

El juego de los juegos. El que fuera numero 1 indiscutible en 
Spectrum y Commodore, ahora disponible para Amstrad. 
Mis de 10 juegos diferentes se encierran en "Frankie goes to 
Hollywood' el programa re;is original que hayas visto. 

DISTRIBUIDOR EXCLU 
ERBE S0 
C/. STA. 
28010 M 
TFNO, (91) 
DELEGACION 
AVDA. MISTf 
TFNO. (93) 



;IVO PARA ESPAA 
,<FTWARE 
3RACIA, 17 - 
(ADRID, 
447 34 10 
BARCELONA, 
LAL, N. ° 10. 
F432 07 31 

I d 

Toda la emoci6n del film. en tu ordenador. Sintete como 
John P, ambo en la jungla vietnamita e intenta salvar a tus 
compafieros prisioneros en el campo de concentraci6n. 

-. P CTRUM 

TU" ESP" 

'l'u misi>n: vigilar y cuidar el cumplimiento de la ley-que seve 
amenazada por una terrible banda de delincuenl.es que ban 
becho del trfico de narcticos su negocio mis renLable. 
Tus medios: un l,otus Turbo Sprit dorado de uno de los rnxi- 
mos adelantos tcnicos y con el lue dehers patrullar por ca- 
lies y avenidas. 

GUN- 
Ultimate nos ofce pare Amstrad, usando su tcni ,ilma- 
tiofi, "Gun-Fright ", el juego en el que el lejano oeste es ¢1 pro- 
tagonista. 
Ponte en el papel de Quikdraw, el sheriff que piensa librar la 
ciudad de todos los pistoleros a Iomos de su buen eaballo Pan- 
to, 



• ," "0 NAVIS ROCK RAID, WIZARD'S LAIR L, ;(", IAMJ.IPP-" 

JUMP JE.T. 

El ms completo programa de mOsico ere,- 
do paro el AMSTRAD. Permite creor sonido-, 
melod[os y conver tu ordenodor en Io -: 
jor "cojo de mOsico" P.V.P.: CASSErTE 

ZEDIS II STEM X ODD JOB 

OTROS PROGRAMAS EN STOCK 
MII OFFICE ".'.P, ' S. 3,200 p 
P.V.P. DIS, 3.900 pts. 
ou, ,, ,.v.,. o,ss. ,.  oo oo,oo_ 
BATLE FOR MIDWAY P.V.P. CASS. 1.800 pls. ' _-,. 
IGHTER PILOT P.V.P. CASS. 2.200 pts. 
SURVIVOR P.V.P. OASS. 1.800 pts. , ......... " I 
MOON BUGGY P.V.P. CASS. 1.800 pts. .pm= __ . 
TECHNICIAN TED P.V.P. CASS. 1.800 pts. c --- 
, 
FRUITY FRANK ,.V.P. CASS. 1.800 pts. j 
DATABASE P.V.P, CASS. 2.1 O0 pts, 
-]'Il d- 

LOGO TURTLE GRAPHICS P.V,P. CASS. 2.400 pts. 

DRAUGHTSMAN 

lea 

TASCOPY Y TASPRINT P.V.P. CASS. 2,600 pts. Solisticdo prooroma de dibujo que permite tratar la pontollo det AMS- 
TRAD como un senclllo tablero de dibuJo, sus resultad, on :x,etocula 
FONT EDITOR P.V.P. CASS. |.900 pts. res. P.V.P.: CASSETTE 4,500 ,Is. DISCO 5.200 0ts. 

• -,$or los rnejores progromos de cinlo , 
• isco ya no es problemo. Con Tronsmol e 
,: proceso serO fOcil y sencillo. P.V,P.: DI: 
,o 2,600 pts. 

ENVtENOS A MICROBYTE . 
p.o Castellana, 179, 1. 0 - 28046 Madrid 

Nombre 
A.¢II dos 
Orei 
Pobl.o6n 
D.P. Tellono 

ENVIOS GRATIS 
JUEGO i C O 

Preoo TOTAL 

PRECIO TOTAL PESETAS 
Incluyo ll nominallVO r-I 
Contra-Reembolso 1'3 I 

Pedidos pot telfono 91 - 442 54 33 / 44 



DIBUJO DE FUNCIONE$ 

De todos es conocido que una pa;te importante de los matemdticas es la representaci6n 
de funciones. Realizarla seria sencillo si no se presentan algunas muy complejas, y par 
consiguiente los malditos problemas a los que todos tememos (que se Io pregunten a 
los estudiantes). 

, Iero'"' todo est6 solucio- 
nado! ya que ANALISIS presenta un progra- 
ma que dibuja funciones de todo tipo. 
Ve6mosle: 
10-40 REMs que informan de su titulo. 
50 Limpia la pantalla y crea un origen en 
la coordenada 0,0. 
60 Se crea la ventana #1 con el comando 
WINDOW, situada y dimensionada segOn los 
par6metros indicados. 
70 REM que nos indica la definici6n de la 
funci6n. 
80 Con el comando DEF FN se define la fun- 
ci6n a representar. 
90 REM que nos dice que comienza la in- 
troducci6n de intervalos. 

100-130 Pregunta los valores del intervalo 
y les asigna las variables <minimo y <m- 
ximo. Las lineas 110 y 120 borran los men- 
sajes aparecidos en la ventana #1. 
140 Especifica con la arden IF... THEN que 
si los valores del intervalo son menores que 
-16, mayores 16 o que si el valor minima es 
mayor que el valor m6ximo del intervalo, la 
ejecuci6n del programa vuelve a la linea 100. 
150 REM que informa del trazado del eje 
160 Comienza un bucle FOR... NEXT cu- 
ya variable de contral es x y que interacio- 
na 639 veces. 
170 Dibuja puntos en las coordenadas 
x,200. 
180 Define la variable <<margen coma 
xt20. 

20 REM MICROHOBBY AHSTRAD 
30 REM DIBUO DE FUNCIONES 
50 CLS:ORIBIN 0,0 
0 WINDOW #1s14025 25 
70 REM DEFINICION DE LA FUNCIO 
N 
80 DEF FN 
90 REM INTRODUCCION DE INTERVA 
LOS 
iO0 INPUT #1,"VALOR HINIMO DEL 
INTERVALO "smlnimo 
110 ELS #I 
120 INPUT #1,"VALOR MAXIMO DEL 
INTERVALO ".max*mo 
130 CLS #I 
140 IF minimo<-l& OR maximo>Ib 
OR minimo>maimo THEN 80TO 
0 
150 REM TRAZADO E3E X 
160 FOR  I TO 639 
170 PLOT 
180 marten=x/20 

190 IF margen INT<marQen) THEN 
DRAWR O4:DRAWR O-8:DRAWR O, 
4 
200 NEXT x 
210 REM TRAZADO EE Y 
220 FOR y I TO 399 
230 PLOT 320y 
240 maen=y/20 
250 IF margen INT(margn) THEN 
DRAWR 2.0:ORAWR -4O:DRAWR 2, 
0 
2bO NEXT y 
270 REM DIBUO DE LA FUNCION 
2S0 ORIGIN 320s200 
290 FOR × mnimo TO maxm STE 
P 0.01 
300 y FN 
310 px=x20:py-y*20 
320 IF py>199 OR py<-200 THEN 
OTO 40 
330 PLT px,py 
340 NEXT x 
350 CALL &BBO6:GOTO 50 

190 Si la variable <margen es igual su va- 
lor entero, INT (margen), se traza una linea 
desde el punto x,200 hasta el punto indicado 
par los incrementos. 
200 Finaliza el ciclo FOR... NEXT. 
210 REM que indica el trazado del eje <Y>. 
220 Se crea un nuevo ciclo FOR... NEXT 
cuya variable es {y y que rata 399 veces. 
230 Dibuja puntos en las coordenadas 
320,y. 
240 Asigna a la variable margen el va- 
lor y/20. 
$0 Si la variable margen es entera, se 
dibuja una Inea con los incrementos indica- 
dOS. 
0 Acaba el ciclo FOR... NEXT. 
70 REM que informa del comienzo del di- 
bujo de la funci6n. 
8 Se crea un origen en las coordenadas 
320,200. 
0 Nuevo cicla FOR... NEXT cuya varia- 
ble es x y que rata un nOmero de veces indi- 
cado por los valares del intervala, pero incre- 
ment6ndose 0.01 en cada iteraci6n. Este in- 
cremento es tan bajo para una mayor defini- 
ci6n. 
800 Con el comando FN se asigna a la va- 
riable y el valor de la funci6n dada. 
81  Se definen las variables px y py. 
8 Si la variable ¢py pasa de los valo- 
res indicados, la ejecuci6n del programa sal- 
ta a la linea 340. 
880 Pinta puntos en las coordenadas px 
y py. 
84 Finaliza el bucle FOR... NEXT. 
$ Se defiene la ejecuci6n det programa 
hasta que se pulse una tecla y luego salta a 
la linea 50. 
NOTA DEL AUTOR: El programa realiza el 
dibu/a de una fund6n que ya viene incorpo- 
rada. Para hater/a grdf;ca de cualquier otra, 
inlroduzca en /a I/nea 0 /a que desee repre- 
senior. 
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E1 programa es de utilidad (hoja de 
clculo). Y est6 desarrollado 

completamente en Basic y tiene como 
nombre Amscalc. Fue escrito en un CPC 
6128 con monitor (GT 65) f6sforo verde y 
est basado en el tratamiento de cadenas. 

e pro urado no 
s61o en el desarrollo de programa 
de utilizar subrutinas (Io ual permi- 
te que se me agrege o b,,rre alguna 
en pos del mejoramient0 del mismo 
o 0 el gusto del usuario) s no tambi6n 
de conseguir una buena presenta- 
ci6n en pantalla aprovechando el ex- 
celente maneio sobre ventanas y 
gr6ficos del ordenador. 
El algoritmo base es el manejo de 
una matriz dimensionada (26,26) la 
cual contiene el dato de la hoja. El 
programa maneja una planilla de 26 
lineas por 26 columnas (de la A-Z en 
cada eje) y su modificaci6n no creo 
que presente problemas para los 
usuarios del CPC 464, si se necesita 
alguna (no conozco las diferencias 
del Basic). 
Cada elemento de la matriz pasa 
a ser una celda de la hoja la cual ma- 
neja (celda) las siguientes variables. 
I1 2 3 414 4 4 4 4 4 4 4 4 
Longifud cadena 26 caracteres. 
26 Caracteres 
26 Columnas 
26 Lineas 
17576 Caracteres 
Aprox. 18 K. 
1.--Car6cter de protecci6n. 
P = Protegido 
D = Desprotegido 
2.--Car6cter modo. 
F=F6rmula. 
V= Variable. 
E = Etiqueta. 
3.--Car6cter de c61culo (no Io 
use). 
4.--Caracteres de variables tanto eft- 
queta como variable. 
5.--Carcter tipo f6rmula. 
P-- Particular. 
G=General. 
6.--Caracteres para f6rmula. 

Instrucciones de manejo 

Una vez cargado el programa y 
ejecutado con RUN no se puede lis- 
tar por Io que hay que grabar el pro- 
grama primero. 
1. Dibuja pantalla, luego aparece 
mensaje que pide esperar un mo- 
mento mientras carga la matriz 
principal. 
2. Luego pregunta si se recupera al- 
gOn archivo grabado anteriormente. 
2.1 Afirmativamente; pregunta el 
nombre del archivo. 
-- Una cadena vacia hace saltar el 
programa como si se hubiese respon- 
dido negativamente. 
-- Una cadena de m6s de 8 carac- 
teres produce un mensaje de error y 
vuelve a pedir el hombre. 
2.2 Negativamente; el programa si- 
gue (paso 3) 
3. Pregunta el titulo de la hoja de 
cclculo con un m6ximo de 60 caraco 
teres. 
3.1 Una cadena mayor pide el titu- 
Io otra vez. 
3.2 Una cadena vacia como res- 
puesta deja el titulo en blanco y sal- 
ta al siguiente paso. 
4.Espera la introducci6n de alguna 
opci6n. Opciones. 
Las opciones aparecen en todo 
momento en la parte inferior de la 
pantalla. 

It Entrada de datos 

Introducci6n datos, seg0n modo 
(ver modo) 
1.1 Variable 6/c; l/d? 
El mensaje recuerda que trabaja 
con 6 enteros y 1 decimal. 
Un n0mero con m6s decimales Io 
redondea. 
-- Una cadena nula retorna a op- 
ci6n. 
-- Valor mayor, pide otra vez la va- 
riable. 
1.2 Etiqueta m/9. 
El mensaje recuerda que trabaja 
con una cadena < =a 9 caracteres. 
-- Una cadena superior pide otra 
vez la cadena. 
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-- Cadena vacia (borra) el conteni- 
do de la celda en el cual est6 el cur- 
sor. 
1.3 F6rmula (ver comandos). 
-- Minimo una cadena de 5 carac- 
teres. 
-- M6ximo una cadena de 11 carac- 
teres (da mensaje de error y perdo- 
na opci6n)) si se da una mayor. 
-- Cadena vacia retorna a pedir 
opci6n. 
 Modo 
Selecciona modo de entrada, el 
programa al inicio est6 en modo va- 
riable. 
1.1 Variable=Valores humeri- 
COS, 
Etiqueta = Cadenas alfanum6ri- 
cas. 
F6rmula. = Cadenas alfabticas. 

Protege celda 

Esta opci6n protege a la celda es- 
pecificada de un posterior borrado 
o <cambio por intrusos. 
1.1 Importante: para entrar, en or- 
denador pide una clave de entrada 
la cual est6 en la linea *50... del pro- 
grama. 
1.2 Una vez protegida la celda no 
se puede desproteger. 
1.3 Una cadena nula retorna a pe- 
dir opci6m. 
-- Cadena no igual a 2 caracteres 
pide otra vez la celda. 
-- Cadena numrica de mensaje de 
error y retorna a opci6n. 

!?! Borra 

la o sector de la ho- 
la ae calcuIo. 
1.1 Pide lineas a borrar. 
1.2 Pide columnas a borrar. 
1.3 Cadena vacia retorna a <op- 
ci6n. 
Ejemplo: 
1) L=AB y C=AG. 
Borra las lineas A y B entre colum- 
has A y G inclusive. 
2) L=AAyC=AA 
Borra la celda AA. 
3) L--DGyC=AA 
Borra las lineas <D a la <<G entre 
las columnas <A y <A (no columna 
I1 Reinicializa 

Reinicializa todo el programa (ba- 
rra todas /as variables). 
1.1 Pide confirmaci6n. 

1 Ayuda 

Acceso a ventanas de ayuda. 
1.1 Se muestra los comandos dispo- 
nibles. 



TABLA DE UBRUTINA 

10-480 

490-810 

820-970 
980-1050 

1060-1200 
I210-1340 
1350-1490 
1500-1640 
1650-1940 

1950-2100 
2110-2160 
2170-2370 
2380-2790 
2800-2850 
2860-2910 
2920-3030 
3040-3410 

3420-3470 
3480-3530 
3540-4050 
4060.4310 
4320-4380 
4390-4440 
4450-4500 
4510-4560 
4570-4610 
4620-4810 

Programa principal 
Dimensiona matriz 
Variable clave 
Titulo planilla 
Manejo de errores Ilee) 
Opciones (monejo de subrutinas) 
Dibuja pantalla principal 
Dimensiona 
Escribe subtitulos 
Recupera archivo Si Io hay) 
Imprirne los mensajes del sisterna 
(Puede suprimirse el sonido) 
Scroll planilla abajo 
Scroll planilla arriba 
Scroll planilla derecha 
Scroll planilla izquierda 
Revisa si la celda est6 protegida 
Pide clave de entrada (si Io est6) 
Entrada etiquetas 
Entrada variables 
Entrada de f6rmulas 
Establece el moclo principal 
Borrado de celda o sector de planilla 
C61culo de f6rmula general 
Imprime etiqueta en pantalla despu6s de un c61culo 
Imprime variable en pantalla despu6s de un c61culo 
Protege celda 
Ventanas de ayuda (se puede suprimir si se requiere m6s 
memoria) 
Reinicio de planilla 
Salida 
C61culo f6rmulas particulares 
Transfiere planilla a disco 
Mueve cursor par planilla arriba 
Abajo 
Derecha 
Izquierda 
Rutinas de apoyo a movimiento cursor 
C61culo plantilla completa 

1.2 AI volver de esta opci6n es ne- 
cesario mover la <<hoja (planilla) ha- 
cia algOn costado para que se escri- 
ban las variables en pantalla. 
i Transferencia 

Transfiere al disco la planilla en 
memoria. 
1.1 La opci6n pide las lineas que se 
traspasan y las columnas. 
1.2 Nombre (m6ximo 8/c). 
1.3 Pide confirmaci6n. 
-- Positiva, graba y vuelve a plani- 
Ila. 
- Negativa, vuelve a planilla. 
I1 Salida 

Salida del programa, borra el pro- 
grama de la memoria del ordena- 
dor. 
1.1 Pide confirmaci6n. 

Mueve cursor par planilla. 
Mueve planilla. 
Importante: Para mover la plani- 
Ila es necesario que el cursor est en 
el borde derecho, izquierdo, supe- 
rior o inferior dependiendo de la di- 
recci6n en que se quiera mover la 
planilla. 
Recalcula toda la planilla 
Importante: Es necesario que el 
cursor est6 en la celda AA)) para 
ocupar esta opci6n. 
-- Visualiza los nuevos resultados en 
caso de producirse, en sus respecti- 
vas celdas. 

Nota: AI cambiar la celda ¢¢D6 en 
el archivo ¢¢ejernplo que acampafla 
junto al programa y usar la opci6n 
de ¢¢recalcular produce el carnbio de 
todas las 
celdas con sus nuevos valores. 

F6rmulas y operaciones 
matem6ticas 
Las f6rmulas pueden ser introdu- 
cidas de dos formas. 
1. F6rmulas generales. 
2. F6rmulas particulares. 

F6rmulas particulares 
Estas f6rmulas s61o pueden conte- 
ner I solo operador y s61o de los si- 
guientes. 
1.--SEN.LC (seno de celda LC) 
2.--COS.LC (caseno de celda 
3.--TAN.LC (tangente de celda 
4.--LOG.LC (LOG (base 1)) de 
celda LC)) 
5.--LON.LC (LON (natural)) del 
celda L C)) 
6.--PII.LC (producto de [I par 
celda L C) 
7.--RAZ.LC (  de celda LC) 
8.--SUM. LC. LC2 (Sumataria en- 
tre LC y LC2) 
9.--PRO. LC. LC2 (Promedia entre 
LC y LC2) 
10.--REP.LC.(xx) 6 (yy) (copia re- 
lativa de LC)* 
* Ver f6rmulas generales. 

Explicaci6n 
8: Suma una columna o linea o 
parte de ella pero siempre en forma 
vertical u horizontal (nunca en dia- 
gonal). 
Ejemplo: 
SUM.AB.HB 
Suma la columna B desde A hasta 
H. 
9: Promedia una columna o linea 
o parte de elias pero siempre en for- 
ma vertical u orizontal (nunca en dia- 
gonal). 
Ejemplo: 
PR©.HC.HF 
Promedia la linea H desde la co- 
lumna C hasta F. 
1 O: Copia una f6rmula general de 
una celdo en otra. 
Ejemplo: 
1 .--REP.LC.XX 
Repite celda LC con sentido hori- 
zontal. 
2.REP.LC.YY 
Re!6ite celda LC con sentido verti- 
cal. 
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10 REbl AMSCALC 
20 REM Patricio 1.agos M./(c/Valenci 
a 235 2,2-#08007).Barcelona 
30 REM I PROGRAMA PINCIPAL 
40 ON BREAK CONT 
50 MODE 2: CLEAR: cl ave$ "xxx"mp "V 
60 DIM matrz$(27,27) ,r$<12) 
70 GOSUB 490:GOSUB 130:GOSUB 820 
80 IF lag=1 THEN GOSUB 800:80T0 18 
0 
90 r$="./ TITULO : ?":GOSUB 980 
100 LOCATE #3,1,2:INPUT #3,titulo$ 
110 IF LEN(titul$)>60 THEN 90 
120 GOSUB 800:80T0 180 
130 r$ "./ ESPERE UN MOMENTO POR F 
AVOR": GOSUB 980 
140 FOR i I TO 26 
150 FOR ]= I TO 26 
160 matt iz$(i  )="DEN G 
170 NEXT:NEXT:RETURN 
180 r$="./ COMANDO : ?":CLS #3:PRI 
NT #3r$:ee=O:ag=O 
190 a$-INKEY$: IF aS="" THEN 190 
200 aS=LOWERS (aS) 
210 IF ASC(A$=248 THEN GOSUB 4320 
220 IF ASC(a$)=249 THEN GOSUB 4390 
230 IF ASC<a$)-251 THEN GOSUB 445" 
240 IF ASC<a$)-250 THEN GOSUB 4510 
250 IF ASC(a$) 240 THEN GOSUB 1210 
260 IF ASC<a$) 241 THEN GOSUB 1060 
270 IF ASC(a$)=242 THEN GOSUB 1500 
280 I ASC<a$> 243 THEN GOSUB 1350 
290 IF ASC(a$)=IOI THEN GOSUB 1650 
3rO IF ASC<a$)=I09 THEN GOSUB 2110 
310 IF ASC<a$) 112 THEN GOSUB 2920 
320 IF ASC<a$)=98 THEN GOSUB 2170 
330 IF ASC(a$>=II4 THEN GOSUB 3430 
340 IF ASC(a$>=97 THEN GOSUB 3040 
35(] IF ASC<a$}-II6 THEN GOSUB 4060 
360 IF ASC(a$)-II5 THEN GOSUB 3490 
370 IF ASC<a$)=3 THEN GOSUB 4620 
380 IF ee=O THEN 180 
390 IF ee-% THEN r$-". / OPERANDO C 
ON ET I QUEAS 
400 IF ee 5 THEN r$ "./ OPERADOR I 
NEX ISTENTE  " 
410 IF ee-6 THEN r$="./ CELDA INEX 
ISTENTE EN FORMULA 
420 IF ee 7 THEN r$="./ INTENTO DE 
ENTRADA ILEGAL  " 
430 IF ee 8 THEN r$-"./ FORMULA MU 
Y LARGA  " 
440 IF ee 9 THEN r$ "./ CELDA SIN 
CARACTER DE PROTECCION 
450 IF ee 10 THEN r$="./ CELDA CON 
CARACTER DE PROTECCION MALO 
460 IF eel THEN r$ "./ CELDA PRO 
TEGIDA 
470 GOSUB 9StY:FOR i=20rK) TO 0 STEF' 
490 REM ' 6AHTAA 'KIHCIPA 
500 INF r(:IN;. 1.26:BORDER O:GRAPH 
ICS PEN i:CIG 
510 MOVE 3,7:DRAW 5.997:DRAW 69936 
:DRAW 336:DRAW 37 
520 MOVE 3,42:DRAW 9142:DRAW 91.84 
:DRAW 3,84:DRAW 342 
530 MOVE 19, 103: DRAW 635, 103: DRAW 6 
35 308: DRAW 19.3 8: DRAW 
540 MOVE 499.45: DRAW 587 45: DRAW 58 
7,00:DRAW 499,100:DRAW 499.45 
550 MOVE 599IOT.:DRAW 599 42: DRAW 
9,42:DRAW 99. 103 
560 MOVE 99308:DRAW 99,14 
570 MOVE 99.340:DRAW 99.378:DRAW 59 
9 378: DRAW 599,340 
580 MOVE 599,314:DRAW 599,308 
590 MOVE 19,314:DRAW 635,314:DRAW 6 
35 340: DRAW 19 340: DRAW 19 314 
600 MOVE 91.103:DRAW 9190:DRAW 
O:DRAW 3 351:DRAW 91351:DRAW 9134 
0 
610 MOVE 91,314DRAW 91.08 
620 MOVE 19,104:DRAW 633 104:DRAW 
33,307 
630 MOVE 0 0: RAW 639 O: DRAW 639, 
O: DRAW O 380: DRAW 
635 MOVE 620, IO:FILL 1 
640 WINDOW #0479I2I8:WINDOW #I 
4,79.5.5: WINDOW #2.22,7 19 
650 WINDOW #3, I6.61,20,22:WINDOW #4 
2, 11,21.22:WINDOW #5,4,79,7, 18 
660 WINDOW #614 743,3:WINDOW #7,1 
,80, I25 

670 PEN #3,1:PAPER #3,1:CLS #3 
680 FOR i=1 TO 61:LOCATE #7,13+i3: 
PRINT #7,CHR$(207):NEXT 
690 PEN #7O:PAPER #7I:LOCATE #72 
.24:PRINT #7."E":LOCATE #7, 16,24:F'R 
INT #7"M":LOCATE #7,2124:PRINT #7 
, "P":kOCATE #7,30,24:PRINT #7, 
7110 LOCATE #7,3724:PRINT #7,"R":LO 
CATE #7,46, 24: PRINT #7, "A" : LOCATE # 
752,24:PRINT #7"T":LOCATE #7.68,2 
4:PRINT #7, "SALIDA" 
710 PEN #7.1:PAPER #7,0:LOCATE 
,24:PRINT #7,"trada datos":LOCATE 
#7 17,24:F'RINT #7"odn":LOCATE #72 
2, 24: PRINT #7 "roteger " 
720 LOCATE #731,24:PRINT #7"orrar 
":LOCATE #7,38,24:F'RINT #7,"Enlcia 
":LOCATE #7,47,24:PRINT #7"yuda":L 
OCATE #7,5,24:F'RINT #7,"ranserenc 
730 LOCATE #7,65,20:PRINT #7,CHR$12 
40): .... CHR$(241)  .... CHR$1242) ; 
CHR$1243): 
740 LOCATE #7,64,21:PRINT #7,"MOVIM 
IENTO":LOCATE #764,22:PRINT #7,"PO 
R CURSOR" : 
75r PAPER #7,1:REN #7,0 OCATE #7,2 
,1:PRINT #7,'HOA DE CALCULOA 
MSCALCMATRIZ DE 26 POR 26 ELEMEN 
Z60 PAPBR #/,O:PEN #/,I:FOR -; 
[2:10CATE #7,2, i+6:PRINT #7CHR$(64 
770 RAF'E #.O:F'FN #I,:PIN] 
B C D 
E F 
780 PAPER #4,0:PEN #4,1:PRINT #4"M 
0 D 0:" 
790 RETURN 
800  OCATE #6, I Nl ( ( 62- EN ( $ i t ul o$ 
/2).I:PRINT #6,UPPER$(titulo$) 
810 R=] URN 
820 RFM I INICIO 
830 fr$ "./ RECUPERA ARCHIVO s/n 
' : GOSUB 980 
840 r$=INFEY$: IF re$= .... HEN 840 
850 IF re$-"s" OR re$="S" THEN GOSU 
B 870 
86O RETURN 
870 fr$-"./ NOMBRE DEL ARCHIVO m/8 
: " : 8OSUB 980 
880 OCATN#'IO2INPUTTHE RET RN #3 ..... $: IF 
890 lar-LEN(nom$):IF far>8 THEN fr$ 
=",/ NOMBRE MUY LARGO :":GOSUB 980: 
GOTO 870 
900 OPENIN nom$ 
910 INPUT #9,tltulo$,ab,cd 
920 FOR i=a TO b 
930 FOR -c TO d 
940 INPUT #9matriz$(i) 
950 NEXT j:NEXT i :CLOSEIN 
960 fr$-",/ ARCHIVO CARGADO":GOSUB 
980:FOR =200 TO 0 STEP -I:NEXT i:f 
iag= I 
970 RETURN 
980 REM  IMPRESION 
990 PAPER #3I:PEN #3,0:CLS #3:LOCA 
TE #3,1,1 
1000 FOR i I TO LEN(r$) 

I010 SOUND I65,3 
1020 FOR j-20 TO 0 STEP -I:NEXT 
1030 PRINT 
1040 NEXT 
1050 RETURN 
1060 REM  SCROLL ABAJO 
1070 IF ¢I<>12 THEN RETURN 
10811 IF ×<2 THEN RETURN 
1090 LOCATE #2I,12:PRINT #2 
1100 lOCATE #2I:PRINT #2,CHR$(II 
iI0 LOCATE #2I.I:PRINT #2CHR$(x+ 
63) 
1120 tOCATE #5,1,1:PRINT #5,CHR$(11 
) 
1130 FOR i=0 TO 6 
1140 k$ MID$(matriz$(x-l,y+i)2,1) 
1150 m$=MID$(matrlz$(x-l,y+i)49) 
I160 LOCATE #5, i11÷II 
1170 GOSUB 4600 
1180 NEXT i 
1190 x=x-1:y=y 
1200 RETURN 
1210 REM  SCROLL ARRIBA 
1220 IF cl<>l THEN RETURN 
23 IF ×>J4 THEN REURN 

1240 k OEATE #2I,13:PRINr #2,CHR$11 
O) 
12511 LOCATE #.,12:PRIN 
+76) 
1260 LOCATE #5,,12:PRINT #5,CHR$11 
O) 
1270 FOR i 0 TO 6 
1280 k$=MID$(matrlz$(x+12,y+i),21) 
1290 mS MID$lmatriz$(x+12y+i)4,9) 
1300 LOCATE #5i11I12 
1310 GOSUB 4600 
1320 NEXT 
1330 x x+l:y y 
1340 RETURN 
1350 REM  SCROtL DEREDHA 
1360 IF cc<>6 THEN RETURN 
1370 IF y<2 THEN RETURN 
1380 FOR i 0 TO 6 

1390 LOCATE #1,i11+,I:PRINT #1.CH 
R$(y+i-l+64) 
1400 NEXT 
1410 FOR i=0 TO 6 
1420 FOR =0 TO 11 
1430 k$-MID$<matriz$<x+y+l-l)2,1 
) 
1440 m$ MID$(matr iz$(x+j,y+i-1),4,9 
) 
1450 LOCATE #5, ill+1j+l 
1460 GOSUB 4600 
1470 NEXT:NEXT 
1480 y=y-1:x=x 
1490 RETURN 
1500 REM  SCROLL IZQUIERDA 
1510 IF cc<>O THEN RETURN 
1520 IF y>19 THEN RETURN 
1530 FOR =6 TO 0 STEP -I 
1540 LOCATE #1iII+I,I:PRINT #1,CH 
RS(y++l+64) 
1550 NEXT 
1560 FOR =6 TO 0 STP -I 
1570 FOR 3 0 TO II 
1580 k$=MID$(matriz$(x+]y+i+1)2,1 
) 
1590 m$-MID$(matriz$(x+]y+i+l),4,9 
1600 LOCATE #5,iII+I,+I 
1610 GOSUB 4600 
1620 NEXT:NEXT 
1630 y=y+l:x=× 
1640 RETURN 
1650 REM  INTRO.DATOS 
1660 pros LEFT$(matriz$<llncol).l) 
1670 IF pro$="P" THEN fr$ "./ CELDA 
PROTEGIDA ESPERE...":GOSUB 980:F0 
R i-1000 TO 0 STEP -1:NEXT i:80SUB 
1710:RETURN 
1680 IF pro$-"D" THEN 80SUB 1750:RE 
TURN 
1690 IF proS-"" THEN ee 9:RETURN 
1700 ee=IO:RETURN 
1710 r$="./ CLAVE DE ENTRADA : ?": 
GOUB 980 
1720 LOCATE #3I,2:INPUT #3.entr$ 
1730 IF entr$= .... THEN RETURN 
740 IF enlr$clve$ THFN ee-7:RET 
 JRN 
1750 IF mp$="V" TH['N OSI 1860:RE 
URN 
1760 IF mp$="E" THEN GOSUB 1790:RET 
URN 
1770 IF mp$="F" THEN GOSUB 1950:RET 
URN 
1780 ee=II:RETURN 
1790 r$-"./ ETIQUETA m/9 : ?":8GSU 
B 980 
1800 LOCATE #3,1,2:INPUT #3,eti$:IF 
LEN(eti$)>9 THEN 1790 
18111 eti$=eti$+SPACE$(lO) 
1820 MID$(matrlz$(lln,col).4,10)-LE 
FT$(eti$,lO) 
1830 MID$(matriz$(lln,col),2,1)="E" 
1840 GOSUB 2800 
1850 RETLIRN 
1860 r$-"./ VARIABLE 6/e2/d : ?": 
GOSUB 980 
1870 t OOATE #3,12:INPUT #3var$:IF 
vats ..... THEN RETURN 
1880 var=ROUND(VAL(var$)2) 
1890 IF vat>999999.9 THEN 1860 
1900 IF vat<-999999.9 THEN 1860 
1910 IF var=O THEN RETURN 
1920 MID$(matriz$(lin,col),2,1)-"V" 
1930 MID$(matriz$(lin,col),4,10)-SP 
ACE$(10):MID$(matriz$(lin,col),4,10 
)-LEFT$(STR$(var),IO) 
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1940 GOSUB 2860:RETURN 
1950 REM ggggg FORMULAS 
1960 fr$ "./ FORMULA m/11/g m/9/p 
: ?":GOSUB 980 
1970 LOCATE #3,1,2:INPUT 
F <orm$-"" THEN RETURN 
1980 IF LEN(form$)<5 THEN 1960 
1990 IF MID$(om$,4,1)="." THEN ti 
p$="F'" ELSE tp$-"G" 
2000 IF tip$="P" AND LEN(form$)>9 T 
HEN ee=8:RETURN 
2010 IF tip$-"G" AND LEN(form$)>ll 
THEN ee=8:RETURN 
2020 MID$(matriz$(lin,col),14,11=ti 
p$ 
2030 MID$(matriz$(lln,col),2,1)="F" 
2040 MID$(matriz$(lin,col),15,LEN(f 
om$)+1)-ormS+"&" 
2050 IF tip$="G" THEN 80TO 2080 
2060 IF tipS "P" THEN GOSUB 3540:1F 
n(1)-O THEN GOTO 2100 
2070 n(J)=ROUND<n(1),2):GOTO 2090 
2080 GOSUB 2380:n<I)=ROUND(n(1)2) 
2090 MID$(matriz$(lin,col),4,10) SP 
ACE$(10):MID$(matriz$(lln,col),4,10 
)-RIGHT$(STR$(n(1)),IO) 
2100 GOSUB 2860:RETURN 
2110 REM g1 MODO PRINCIPAL 
2120 IF mp$="V" THEN mm$ "ETIQUETA" 
2130 IF mp$-"E" THEN mm$="FORMULA " 
2140 IF mp$="F" THEN mm$-"VARIABLE" 
2150 LOCATE #4,1,2:PRINT #4,mm$ 
2160 mp$=LEFT$(mm$1):mm$ ..... :RETURN 
2170 REM g BORRADO 
2180 r$="./ ENTRE QUE LIN ^ m/a- 
? : ?":GDSB 980 
7190 I.OCATE  1,2:INPUT 
I  nea$-LO.ER$ ( I  nea$ ) 
0 IF lnea$= .... THEN RETURN 
9910 F EN(li:e$)<>2 THEN 2180 
2220 linealS=LEFT$(linea$,1):linea2 
$=RIGHT$(lnea$.1) 
2230 lineal ASC(lineai$)-gb:llnea2= 
ASC(llnea251-96 
2240 IF linea1<l OR linea1>S6 OR 
neaS<1 OR linea2>26 THEN GOTO 2180 
2250 r$-"./ ENTRE QUE COLUMNAS m/a 
-z ! 9":80SUB 980 
2260 LOCATE #3,1,2:INF'UT #3,clum$: 
colum$-LOWER$(colum$) 
2270 IF colum$= .... THEN RETURN 
2280 IF LEN(colum$)<>2 THEN 2250 
2290 colum1$ LEFT$(colum$,1):colum2 
$=RIOHT$(colum$l) 
2300 colum1=ASC(columl$)-96:colum2= 
ASC(colum251-g6 
2310 IF colum1<l OR columl>26 OR co 
lumS<1 OR colum2>26 THEN GOTO 2250 
2320 FOR -lineal TO linea2 
2330 FOR j-columl TO colum2 
2340 IF LEFT$(matriz$(i,),1) "P" T 
HEN 2360 
2350 matriz$(i,)="DEN S 
2360 lln i:coI-:80SUB 2800 
2370 NEXT :NEXT ):RETURN 
2380 REM *** CALCULO FORMULA 
2390 modo$=MID$(matriz$(lin,col)2, 
I) 
2400 IF modo$<>"F" THEN RETURN 
2410 h=INSTR(matriz$(lincol)"&"): 
IF h-O THEN RETURN 
2420 long-h-15 
2430 cadena$=UPF'ER$(MID$(matrlz$(li 
n,col),15,1ong)) 
2440 cadena LEN(cadena$) 
2450 comando=((cadena+1)/3)-1:i'=1 
2460 FOR b=l TO comando+1:n$(b)-MID 
$(cadena$,,2):i-i+3:NEXT 
2470 i=3 
2480 FOR b-I TO comando 
2490 c$(b)-MID$(cadena$,i,1):p$-c$( 
b) 
2500 IF p$ "%" OR p$="/" OR p$-"^" OR p$-"+" OR p$-"-" OR p$-"%" THEN 
2510 ELSE ee=5:RETURN 
2510 i=i+3 
2520 NEXT b 
2530 FOR b=I TO comando+l 
2540 aa=ASC(LEFT$(n$(b>,I>)-64 
2550 bb-ASC(RIGHT$(n$(b),I))-64 
2560 IF aa<1 OR aa>26 OR bb<l OR bb 
>26 THEN ee 6:RETURN 
2570 IF MID$<matriz$(aa,bb),2,1)="V 
" OR MID$(matriz$(aa,bb)21) "F" T 

HEN 2580 ELSE ee=3:RETURN 
2580 n(b)=VAL(MID$(matriz$(aa,bb),4 
, 10) ) 
2590 NEXT b 
2600 h=1:i=1 
2610 IF cto,aldo=O ]HbN RE'rIRN 
2620 IF c$(i)="+ '' THEN w=l 
2630 IF c$(i)="-" THEN .=2 
2640 IF c$(l)="" THEN 
2650 IF c:$(i)="/" TIIEN w=4 
2660 IF cS(i) "%" THEN w-5 
2670 IF c$(1)= ''" THEN 
2680 ON  GOSU8 27¢02710,2720,2730 
,2740, 2750 
2690 GOTO 761¢9 
2700 n(h)=n(h)+n(h+1):GOSUB 2790: RE 
TURN 
2710 n (h)=n (h-n (h+1) :GOSUB 2790:RE 
TURN 
2720 n(h)=n(h*n(h÷l):GOSUB 2790: RE 
TURN 
2730 n(h)=n(h)/n(h+1:GOSU8 2790:RE 
TURN 
2740 n(h)=(n(h)n(h+1))/1OO:GOSUB 2 
790: RETURN 
2750 n(h)=n(h)"n(h+1):OOSUB 2790:RE 
TURN 
2760 IF comando<>O TI4EN n(1)=n(1):n 
(21=n(31 :n (31 n(4 :n(4)=n(51 
2770 RETURN 
2780 i =i + I: comando=comando- i : n (coma 
ndo+3) O: RETURN 
2790 GOSU8 2780:8OSUB 2760: RETURN 
2800 REM g IMPRESION (etiqueta) 
2810 IF lin>×-1 AND fin<x+12 THEN 2 
820 ELSE RETURN 
2820 IF col>y-1 AND col<y+7 THEN 28 
30 ELSE RETURN 
2830 c=co)-y:l-lin-×+1:m$-MID$(matr 
iz$ (I in, col ) ,4,9) 
2840 LOCATE #5,cII+I,I:PRINT #5,US 
ING "&";mS 
2850 RETURN 
2860 REM gg IMPRESION (variable) 
2870 IF lin>x-I OR lin<×+l THEN 288 
0 ELSE RETURN 
2880 IF col>y-1 OR col<y+1 THEN 289 
0 ELSE RETURN 
2890 c=col-y:l=lin-x+l:u=VAL(MID$ 
atriz$(lin,col ) 4,91 ) 
290 LOCATE #5c$11+I.I:PRINT #5US 
ING"#######. #"  u 
2910 RE URN 
2920 REM *$$ F'ROTECCION 
2930 r$ "./ CELDA : ?":GOSUB 980 
2940 LOCATE #3, 1,2: INPUT #3,nu$ 
2950 nu$-UPPER$(nu$) 
296D IF nu$ ..... THEN RETURN 
2970 IF LEN(nu$)<>2 THEN 2920 
2980 a-ASC CLEFTS (nu$ I ) ) -64 
2990 b AC(RIGHT$(nu$,I))-64 
3000 IF a<1 OR a>26 OR b<I OR b>26 
THEN ee-6:RETURN 
3010 IF 1.EFT$(matriz$(ab)1)-"P" T 
HEN ee=13: RETURN 
3020 MID$(matriz$(a,b)1, I)-"P" 
3030 RETURN 
3040 REM $$ AYUDA 
3050 WINDOW 10,308, 18 
3060 PAF'ER I:F'EN O:GRAPH]CS )-I:N O:C 
LS 
3070 M0VE 74,120:DRAW 236'120:DRAW 
236,'280:DRAW 74280:DRAW 74 120 
3080 PAPER D:PFN I:LOCATE 2,2:PRINT 
"OF'ERADORES 01 " 
3090 PAPER I:F'EN O:LOCATE 2,3:F'RINT 
XY=I 'CEL.DA" 
3100 LOCATE 2,4:PRINT"SEN. XY 
COS. XY" 
3110 LOCATE 2,5:PRINT"TAN. XY 
LOG. XY" 
3120 LOCATE 2,6:F'RINT"LON. XY 
PI I. XY" 
3130 LOCATE 2,7:PRINT"LOG-(Log base 
101 " 
3140 LOCATE 2,8:PRINT"LON=(Log Natu 
3150 LOCATE 29:PRINT"PII-(F'I  Cel 
da ) " 
3160 PAPER ():PEN I:LOCATE 2,10:F'RIN 
T" SPACE para seguir " 
3170 IF INKEY (471< >O THEN 3170 
3180 WINDOW 1535,7 17 
3190 PAPER I:F'EN O:CLS 

3200 MOVE 114,136:DRAW 276,136:DRAW 
276,296:DRAW I14,296:DRAW 114,136 
3210 PAPER O:PEN I:LOATE 2,2:PRINT 
"OPERADORES 02" 
3220 PAPER I:PEN O:LOCATE 23:PRINT 
XY I'CELDA" 
3230 LOCATE 2,4:PRINT" XIY1=2 
'CELDA" 
3240 LOCATE 2,5:F'RINT"RAZ.XY (cuadr 
ada)" 
3250 LOCATE 26:PRINT"PRO. XY. XIYI" 
3260 LOCATE 2,7:PRINT"SUM. XY.XIYI" 
3270 LOCATE 28:PRINT"REP. XY. (:xo( 
yy) - 
3280 LOCATE 2,9:PRINT"××:hor. yy: 
3290 PAPER O:PEN I:LOCATE 2IO:PRIN 
T" SPACE para segulr " 
5300 IF INKEY(471<>O THEN 3300 
3310 WINDOW 2663916 
3320 PAPER 1:PEN O:CLS 
3330 MOVE 204,152:DRAW 499,152:DRAW 
499264:DRAW 204,264:DRAW 204,152 
3340 PAPER O:PEN I:LOCATE 22:PRINT 
"PERADORES 
03" 
3350 PAPER 1:PEN O:LOCATE 23:PRINT 
"(+-,/):Suma,resta,multiplica,di 
3360 LOCATE 24:PRINT"vlde la I  Ce 
Ida con la 2' Celda" 
3370 LOCATE 2,5:PRINT"(%):I" Celda 
$ 100 de la 2  Celda" 
3380 LOCATE 26:PRINT"(^):I  Celda 
a la potencia de la 2 " 
3390 PAF'ER O:PEN I:LOCATE 2,7:PRIN 
" SPACE para F'ANTALLA PRINCIPAL 
3400 IF INKEY(471<>O THEN 3400 
3410 CLS #5:RETURN 
3420 REM g RE. INCIO 
4!) r$="./ ESFA E(3URO : ":GOUB 
3440 )OCAfE #3,),?:INPtJI 
3450 se$ UPPER$(se$) 
3460 IF LEh[$(se$.l)<>"" ]HEN REU 
RN 
3470 RUN 
3480 REM i SALIDA 
3490 r$ "./ ESTA SEGtJRO : ?":GOSU8 
980 
350( t OCATE #,I,2:INF'UT #3,se$ 
3510 se$=lJF'F'ER$(se$) 
3520 IF I EFT$(se$,I)<>"S" THEN RETU 
RN 
3530 CIEAR:WINDON 1,80,1.25:CLS:NEW 
:END 
3540 REM g CALCULO FORMULAS 
3550 {ormS=UPPER$(MID$(matrz$(lin, 
cot)15,LEN({orm$))) 
3560 IF IEN(form$)=9 THEN GOSUB 371 
0 
3570 IF LEN(form$)=6 THEN GOTO 3580 
ELSE RETURN 
3580 oper$ LEFT$({orm$,3):cd$ RIGHT 
$(form$,2) 
3590 a=ASC(IEFT$(cd$,I))-64:b=ASC(R 
IGHT$(cd$111-64 
3600 IF a<1 OR a>26 OR b(l OR b>26 
THEN ee-6:RETURN 
3610 IF MID$(matrz$(a,b)2 I)="E" 
THEN ee-3:RETURN 
3620 a=VAL(MID$(matriz$(a,b),4,10)) 
3630 IF operS "SEN" THEN n(1)-SIN(a 
) 
364 IF oper$="COS" THEN n(1)-COS(a 
3650 IF eper$-"TAN" THEN n(1) TAN(a 
3660 IF oper$ "LOG" THEN n(1)-LOGIO 
(ABS(a)) 



3670 IF oper$="LON" THEN n(1) LOS(A 
BS (a)) 
3680 IF oper$="PII" THEN n(1) PI*a 
3690 IF oper$-"RAZ" THEN n(1) SOR(a 
) 
"5,700 RFTURN 
371(I oper$-!EFT$(formS,3):cd1$ MID$ 
(form$5,2):cd2$ RIGHTS(formS,2) 
3720 aI=ASC(LEFT$(cdI$, I))-64:02-AS 
C(LEFT$(cd2$, I) )-64:bi ASC(RIBHT(c 
di$, I)) -64:b2-ASC(RIGHT$(cd25, I))-6 
4 
730 IF l<l OR a2<I OR aI>6 OR a2 
>26 OR bl<l OR b2<I OR b1>2 OR b2> 
26 THEN ee=6:RETURN 
3740 j=O:n(t)=O 
3750 IF oper$ "SUM" THEN GOSUB 3790 
3760 IF oper$="PRO" THEN GOSUB 3830 
3770 IF oper$ "REP" THEN GOSUB 3850 
3780 RETIJFN 
3790 GOSUB 800: RETURN 
380 IF 01=02 THEN 3=OzFOR i=bl TO 
b2=n(1)=n()+VA[ (MID(matri$(al,i) 
,4.10)) j-j+i:NEXT:RETURN 
.4.10)):.i I *  :tll- X I  b't: IIIb'bl 
%'0 ((IS.;I. 1 (-O: IF )-0 THEN RFTLIN 
P" THEN RETURN 
3880 FOR i=l SO long:r$(i) MIO$(mat 
rz$(al.bl) i+14 i) NEXT 
890 IF 02+b2=4 THEN 60SUB 
3000 IF a2b2=50 THEN GOGU8 3920 
390 RE 
3920 FOR J-2 TO long STEP G:r$(J 
HR$(ASC (r$(i) )+I) :NEXT 
930 r$(leng+) "&":n{$ ..... 
3940 FOR i=l TO long+t:n$ n$+r$(i 
) : NEXT 
3950 MID$ (matri =$ (] i n, col ) , 15, 
PACES ( 
3960 MID$(matr J $(l in,col ) , 15, 1 ong+ 
1)=nf$ 
398 GOSUB 2080RETURN 
3990 FOR i t TO long-I STEP 
=CHR$ (ASC (r$   ) )+I ) :NEXT 
4000 r$ (Iong+ 1 ) -"&" : n $-"" 
4010 FOR -I TO long+l:n$ n{$+r$(t 
) : NFXT 
4020 MID$(matriz$(lln,col ) , 15. 10)-S 
RACES (10) 
4030 MID$(matrlz$(lincol ) , 15 long+ 
I) nf$ 
4040 MID${matrlz$(l in,col )  14 I)="G 
4050 60SLIB 2080tRETURN 
4060 REM  TRANSFERENCIA 
4070 WINDOW #048.62, 4,24:F'AF'ER I: 
PEN O:GRAPHICS F'EN O:CLS 
4080 MOVE 380,24:DRAW 491,24:DRAW 4 
91I84:DRAW 380, I84:DRAW 38024 
4090 PAPER O:PEN I:[OCATE 2,2:F'RINT 
"TRANSFERENC I A" 
410( PAPFR I:F'EN O:LOCATE 2,3:F'RINT 
4110 LOCAEE 2.5:F'RINT "Columna :" 
4120 LOCATE 2.7:PRINT "Nmbre : " 
4130 PAPER O:PEN i LOCAE 29:PRINT 
"CONF IRMACI ON " 
440  OCAEE 2. 10:PRINT " (s/ 
4150 PAPER IF'EN 0 
4160 LOCATE 2.4:INPUT #O,llneas$:ll 
neas$ UPPER$(llneas$) 
4170 LOCATE 26: INPUT #O,columnas$: 
col umnas$=UPPER$ (col umnas$ ) 
4180 LOCATE 2,8:INPUT #Onombre$ 
4190 RAPER O:PEN 1 
4200 a$=INfEY$: IF a$ "" THEN 4200 
4210 IF a$='s '' OR aS "S" THEN 4230 
4220 x=I:y=I:GOSUB 490:RETURN 
420 a ASC(MID$(lineas I, I))-64:b 
ASC (MID$ ( 1 i neas$, 2, I ) ) -64: c=ASC (MID 
4240 OF'ENOI[ non,bre 
4250 WRITE #9titulo$a,b,c,d 
420 FOR i=a IU b 
4270 FOR )=c Ti] d 

4280 Wh:I'IE #g',,atri .:1 (i 
4290 NEXT: NEXT 
4300 CLOSLOUT 
4310 x=t:y I:GOSIJB 490:RETURN 
4320 REM g$* CURSOR ARRIBA 
4330 IF CL<2 THEN RETURN 
434r GOSUB 4570: I.OCATE #5, cc  11   , c 
I:PAPER #5,O:F'EN #5,1 
4350 GOSUB 4600:cl-cI-I:GOSUB 4570: 
PAPER #5, I:PEN #50 
4360 t OCATE #5,CC11+I.C :GOSUB 460 
O:PAPER #5,0:PEN #5,1 
4370 Iin=x+cI-:RETURN 
4380 RETURN 
4390 REM : CURSOR ABA30 
4400 IF ci>11 THEN RETURN 
4410 GOSUB 4570:LOCATE #5,cc11I,c 
I:PAF'ER #5O:F'EN #5I 
4420 GOSUB 4600:cI=cI+:60SUB 4570: 
PAPER #5,1:PEN #5,0 
4430 LOCA7E #5,cc1141,cI:GOSUB 460 
OzPAPER #5¢:PEN #5 I 
4440 lin=x+cI-I:REEURN 
4450 REM t CURSOR DERECHA 
4460 IF cc>5 THEN RETURN 
4470 GOSUB 4570:LOCATE #5,cc11+I,c 
I:F'AF'ER #5O:F'EN #5, I 
4480 GOSUB 4600:cc-cc+I:GOSUB 4570: 
RAPER #5. I : PEN #5.0 
4490 LOCATE #5.ccII+I,cI:GOSUB 460 
¢:PAF'ER #5,0:PEN #5 I 
4500 col y+CciRETURN 
4510 REM $ CURSOR IZQUIERDA 
4520 IF cc< THEN RETURN 
4530 GOSUB 4570:LOCATE #5cc11+1c 
(:PAPER #5,0:PEN #5, 1 
4540 GOSUB 4600:cc=cc-1:GOSUB 4570: 
PAPER #5, i:REN #5,0 
4550 LOCATE #5,cII+I,cI:OOSUB 460 
"O:PAPER #5O:F'EN #5 1 
4560 col y+cc:RETURN 
4570 $-MID$(matriz$(cl+x-1cc+Y) 2 
,I) 
4580 mS MID$(matriz$(cl+x-lcc+y),4 
.9) 
4590 RETUNN 
400 IF kS "E" THEN PRINT #5,USING 
"&":mS Et.SE RRINT #5,USING "####### 
.#':VAI 
4610 RETURN 
4620 REM  CALCULO RLANILLA 
4630 WINDOW #047,61,20,22 
4640 IF x<>1 OR y<>l THEN RETURN 
4650 IF cc<>O OR ci<>I THEN RETURN 
4660 fr$="./ EGPERE, CALCULANDO F'LA 
NILLA    ":GOSUB 980 
4670 FOR li=l TO 26 
4680 FOR jj=1 tO 26 
4690 lln ii:col=i 
4700 IF MIO$(matriz$(ii, 
F" THEN 4810 
4710 w=INS'[R (matt i$(I 
4720 form$-MIO$(matriz$(lin,col), 15 
,w-15) 
0730 IF MID$(matriz$(ii,jj),14,1)=" 
P" THEN GOSUB 3540 
4740 IF MID$(matriz$(iijJ) 14, 1l-" 
G" THEN GOSUB 2380 
4750 n (1)-ROUND(n (1)  2) 
4760 MID$(matriz$(ii,jj),4,10) SPAC 
E$ (10) 
4770 MID$ (matrlz$(i i , JJ) • 4 I0 ) =RIGH 
T$(STR$(n(1)) 10) 
4780 IF i>12 OR j]>7 HEN GOTO 481 
0 
4790 c=-:] ii:u VAL(MID$(matriz$ 
(ii,jl4gl) 
4800 i OCATE #5c11+I] :PRINT #5,US 
ING 
4810 NEXT:NBXT:cc O:cl=l:]in 1:col= 
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MANAL 

Porque pretendemos que MSTRAD 
SEMANAL sea tombi6n vuestra evista, 
hemos obierto una secci6n en la que se 
publicar6n los meiores prog amos origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros ser6is los encargados de realizar 
estas p6ginas, en los que podr6s apor- 
tar ideas y programas interesantes pa- 
ra arras lectores. 
Las canal(danes son sencillas: 
-- Los programas se enviar6n a AM$- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada prograrna debt ir acompa- 
ado de un texto explicaivo en el cual 
se incluyan: 
-- Descripci6n general del programa. 
-- Tabla de subrutinas y variables uli- 
lizadas, explicando claramente la 
funci6n de cada una de elias. 
-- Instrucciones de manejo. 
-- Todos estos detos deber6n ir escri- 
los a m6quina o con letra clara papa ma- 
yor comprensi6n dei programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi 
do o que no son correctament' intetpre- 
tados par los impresores. 
-- En una sola cinta puede inlroducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 ol aulor dcl progema 
de 15.000 a 100.000 pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados pora su publication, recibiran 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a parti 
de la fecha en que su progama Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
Ina. 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA 
NAL. 
-- Los programas sospechosos de pla- 
gio seran eliminados inmediatamente. 

IENVIANOS 
TU PROGRAMA! 

Adjuntando los siguientes datos: 
Nombre y apellidos,. 
direcci6n y telfono. 
Indicando claramenle en el sabre: 

AMSTR ', ' S[M'NAL 

a HOBBY PRESS, S. A. Lo Granja, 39 
p I l-d. ' lcobendas (Madrid) 

 ,/cROOr AMSTRAD 



Para construir un edificio hacen falta un arquitecto, herramientas y los materiales 
ms modernos. 
Para crear un programa que pueda pensar y aprender por si mismo es necesario un 
programador, tfi, un gran ordenador, tu Amstrad, y una herramienta 
evolucionaria, el lenguaje de programacin, LISP. 
AMSTRAD Semanal ha escrito una versi(n completa de LISP, y vamos a regalrtelo y 
a ensearte a utilizarlo. 
Programas estpidos no, gracias. 

  'l formacin en AMSTRAD Especial nfimero 2. 



par R.G. Bernol 
Comenzomos con este ort[culo uno serie dedicoda o Io Inteligencio Artificial, IA paro los 
omlgos y entendidos en el temo. Samos conscientes que obordomos un temo 
completomente nuevo, que nunco se hob[o vista antes trotodo en un media informotivo 
especiolizodo, {uero de los doustros de los Universidodes, de uno formo continua y 
profundo, y que, tol vez par ella, est6 rodeodo de un aura molfica de misterio y 
esoterismo. 
Pues bien, nodo ms leios de Io realidod: Io IA es uno tcnico de progromoci6n coma 
cualquier otto, y puede ser oprendido y eiecutado par cuolquier persona que tengo un 
Amstrod y quiera oprender. 
A aesor de iugornos el cuello) ol obrir comino en el temo m6s puntero de la inform6tica 
oe los 80, estomos completomente convencldos de que este art[culo, y los progromos y 
herromientas que le seguirn, van o servir pora desvelor el enigma que se esconde 
detrs de esta apasionante disciplina. 
Para qu sirve? ,C6mo se utiliza? Son preguntas a los que iremos dando respuesta de 
farina profundo, y a la vez sencilla y clara, accesible a todo el mundo. 
Par hay basta con una completa introducci6n que nos sirra para acercarnos a este nuevo 
mundo, que sentara sin la menor dudo los bases de la informdtica del futuro, que ya es 
hay. 
Tal vez los ordenadores no puedan pensar, pero si puede parecer que Io hacen, y vamos 

a ensefiaros la. farina de conseguirlo. 

 la antigOe- 
• ad el hombre ha sofiado con cons- 
t uir m6quinas inteligentes. Lo prime- 
r. m6quina que podia tener atisbos 
de inteligencia fue constru da en 
1912 aor Leonard, Trrre C. evedo. 
El aut6mata ajedrecistico que 61 
construy6, jugaba las finales de rey 
y torre rey (siguiendo el m6todo co- 
nocido que permite la victoria en 
cualquier situaci6n), si en un acto de 
mal perder, por nuestra parte, rea- 
lizab6mos movimientos ilegales, no 
s61o se quejaba, sino que a la terce- 
ra vez, cansado de nuestra mala fe, 
dejaba autom6ticamente de jugar. 
Pero hubo que esperar a la aparici6n 
de los ordenadores digitales para 
dar los primeros pasos importantes. 
En la segunda mitad de los afios cua- 
renta empezaron a salir a la luz los 
primeros programas de ajedrez. En 
aquella 6poca a0n se pensaba que 
era posible construir un programa 

que, s61o con las reglas del juego, 
pudiese veneer. Esta ide'a se aban- 
donaria posteriormente debido a la 
gran cantidad de tiempo que consu- 
miria en encontrar la soluci6n (en alo 
gunos juegos es posible q.ue ni iquie - 
ra la encontrase). 
A principios de la dcada de los 
cincuenta aparecieron los primeros 
programas de 61gebra simb61ica, ca- 
paces de derivar funciones. Fue 6ste 
un Iogro muy importante, ya que se 
pas6 de tratar con n0meros a mani- 
pular simbolos, iPor fin estaban re- 
sueltos los problemas de aquellos es- 
tudiantes que se aburrian o sufrian 
intentando calcular derivadas de 
funciones, las mismas derivadas con 
las que tO te encontraste en el bachi- 
Iler o con las que, tal vez, a0n tro- 
pezar6s! 

E1 na¢imiento de la IA 

En 1956 aparece la Inteligencia 
Artificial (IA) como disciplina inde- 
pendiente. Hasta esta fecha se ha- 
bian ido desarrollando las teorias de 
las que haria uso la IA. En un con- 
greso celebrado en Darmouth en ese 
afio, Newell, y Simon presentan el 

primer programa de inteligencia ar- 
tificial. Era el <<Logic Theorist)), un de- 
mostrador de teoremas de la L6gica 
proposicional, basado en los traba- 
jos publicados por Herbrand en 
1930. El tipo de cosas que era capaz 
de demostrar no era excesivamente 
complicado (la negaci6n de la nega- 
ci6n de P es igual a P, o este otro: 
de P y Q se deriva P), pero su demos- 
traci6n puede representar un proble- 
ma para cualquier persona no acos- 
tumbrada a este tipo de cosas. Fue 
en este mismo congreso donde 
McCarthy --el creador del Lisp-- 
propuso el nombre de Inteligencia 
Artificial para esta nueva ciencia. 
En los origenes de la IA ya hay dos 
puntos de vista diferentes, prove- 
nientes de dos comunidades cientifi- 
cas distintas. Pot un lado estaba el 
punto de vista de la Psicologia, que 
pretendia utilizar el ordenador como 
una herramienta para comprobar 
teorias sobre el comportamiento hu- 
mano. La Neurologia habia descu- 
bierto la organizaci6n interna de al- 
gunos sistemas nerviosos simples. Se 
intent6 entonces simular estos siste- 
mas mediante ciertas estructuras en 
red, apareciendo en 1958 el <<pre- 
ceptron, de Rosanblatt cuyo objeti- 
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vo era el reconocimiento de im6ge- 
nes. SegOn su creador seria posible 
salir o la calle dotado de uno de ta- 
les aparatos a la bOsqueda de obje- 
tos de un cierto tipo (gatos, casas, 
coches, etc.). Para ello bastaria que 
ajust6semos una rueda (como si se 
tratase del mando de una batidora) 
en la clase de objeto que queriamos 
hallar y present6semos ante nuestro 
<<preceptron>> objetos de varios tipos. 
Entonces el mecanismo nos contesta- 
ria si Io que le mostr6bamos perte- 
necia o no a la close de obietos re- 
queridos. Sin embargo, en 1969, 
M.L. Minsky y S. Papert --uno de los 
padres del Logo, <<el lenguoie de Io 
tortuga>>-- rompieron estas maravi- 
Ilosas fantasias. Demostraron que es- 
te tipo de sistemas era incapaz de 
distinguir formas conexas (de una so- 
la pieza) de otras que no Io eran y 
se abandon6 su estudio. Hoy pare- 
ten haber recobrado cierto inter6s. 
Otro punto de vista ha sido el 
formtico), desde el que se pre- 
tenden hallar t6cnicas para simular 
el rozonamiento y el comportamien- 
to inteligente. Los investigadores en 
este campo no intentan reproducir el 
comportamiento humano, sino sus 
efectos. Es decir, no intentan cons- 
truir programas que juegen al aje- 
drez en la misma forma en que Io ha- 
ria un buen jugador--analizando 
s61o los jugadas que parecen mejo- 
res--, pero si que juegen al nivel de 
maestro. Este es el campo m6s pro- 
metedor yen el que se est6n consi- 
guiendo mayores Iogros. iDe hecho, 
algunos programas de ajedrez ya 
juegan al nivel de expertos! 
A partir de la dgcada de los cin- 
cuenta comenzaron a aparecer gran 
n0mero de programas de IA en nu- 
merosos campos: ajedrez, damas, 
geometria piano (la geometria pla- 
na es un juego que parece ser que 
inventaron unos seores en Grecia 
hace algunos amos), traducci6n auto- 
m6tica, etc. Los primeros grandes Io- 
gros en algunos de estos campos de- 
sataron una euforia injustificada que 
Ilevaron a predicciones desatinadas 
como la que formularon en 1958 Ne- 
well y Simon: antes de 1968 ser6 
campe6n.de ajedrez un programa y 
se habr6 demostrado autom6tica- 
mente>> un teorema importante. Nin- 
guna se cumpli6. 
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Este fracaso se debi6 fundamental- 
mente alas tcnicas utilizadas para 
construir estos programas, basados 
en la comprobaci6n de todas las po- 
sibilidades de actuaci6n en cada mo- 
mento (soluciones combinatorias). 
Por ejemplo, en el caso del ajedrez, 
estos programas calculan, para ca- 
da posible movimiento de sus fichas, 
todas las respuestas posibles por par- 
te de su adversario, y para cada una 
de 6stas de nuevo todos sus posibles 
movimientos, etc. Se va creando de 
esta forma un 6rbol cuya raiz es la 
posici6n inicial; las ramas que salen 
de la raiz Ilevan a tableros a los que 
se puede Ilegar haciendo un 0nico 
movimiento de una ficha propia; las 
ramas que salen de estos tableros lie- 
van a tableros que representan po- 
siciones alas que se Ilega tras hater 
un movimiento de una ficha del opo- 
nente, etc. A cada tablero se le asig- 
na despu6s un valor segOn una cier- 
ta t6cnica Ilamada minimas (porque 
unas veces se toma el m6ximo de 
unos valores y otras se toma el mini- 
mo) que emplea una funci6n de eva- 
luaci6n que hemos de fijar nosotros 
y que <mide Io buena o mala que 
es una cierta posici6n. La jugada que 
nos Ileve a un tablero de m6xima 
puntuaci6n es la que se elige. En aje- 
drez, el nOmero medio de posibles ju- 
gadas es de unas 35, de modo que, 
para analizar hasta un nivel tres 
(propio-contrario-propio) era nece- 
sario revisar m6s de 40.000 tableros 
(35 x 35 x 35). Para Iograr por estos 
m6todos un nivel de juego aceptable 
era necesario profundizar hasta al 
menos seis niveles, Io que suponia 
analizar mds de 1.800 millones de ta- 
bleros para realizar un solo movi- 
miento (ilas mdquinas ajedrecisticas 
m6s r6pidas de hoy en dia tardarian 
m6s de tres horas en mover una fi- 
cha si utilizasen esta t6cnica tan gro- 
sera!). 

Un progromo 
que aprende 

En 1959, A. Samuel present6 un 
programa que jugaba bien alas da- 
mas y adem6s parecia aprgn- 
der'), pues tras cada partida juga- 
da mejoraba su rendimiento. Sin em- 
bargo, toda la 4nteligencia de este 
programa habia sido colocada ya 
por el autor. El programa jugaba uti- 
lizando la t6cnica del minimax, s61o 
que la funci6n de evaluaci6n, que 
puntuaba determinadas caracteristi- 
cas deseables del juego, no estaba 
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completamente fijada. Los factores 
que se median (ocupaci6n del cen- 
tro del tablero, movilidad de las fi- 
chas, posibilidad de conseguir dama, 
etc.) estaban fijados a priori, pero los 
coeficientes que indicaban la impor- 
tancia de estas caracteristicas eran 
calculados por el programa seggn 
iba jugando, por Io que tras varias 
partidas estos coeficientes estaban 
bastante bien calibrados. Este era to- 
do el aprendizaje que tenia el pro- 
grama de Samuel. Se confi6 en gran 
manera en este m6todo, que luego 
result6 inaplicable en otras 6reas. 
Otro campo de investigaci6n en IA 
que despert6 tambi6n grandes espe- 
ranzas es el de la traducci6n autom6- 
tica. Los primeros trabajos en este 
campo se proponian descifrar c6di- 
gos militares. Se pens6 entonces en 
utilizar estas t6cnicas para la traduc- 
ci6n mec6nica por ordenador de un 
idioma a otro (en particular del ruso 
al ingl6s, que para eso pagaban los 
americanos). Los m6todos emplea- 
dos eran muy simples. Consistian en 
traducir el texto palabra por pala- 
bra, utilizando enormes diccionarios. 
Despu6s se cambiaba el orden de al- 
gunas palabras (sustantivo por adje- 
tivo, por ejemplo) y se hacian con- 
cordar en g6nero y nOmero. Las tra- 
ducciones obtenidas por aquellos 
m6todos eran absolutamente ilegio 
bles. No se hicieron progresos ma- 
yores yen 1964 apareci6 el informe 
ALPAC, tras el cual el Gobierno nor- 
teamericano, principal contribuidor 
monetario a la investigaci6n en IA, 
decidi6 suspender su apoyo econ6o 

mico a estos estudios. Esto supuso un 
gran retraso en las investigaciones en 
este campo, que no se recuper6 has- 
ta mediados de los amos setenta. 
Entre 1965 y 1970 hubo un pro- 
greso importante en la resoluci6n ge- 
neral de problemas mediante solu- 
ciones combinatorias debido al 
aumento en la potencia de las com- 
putadoras y a alguans t6cnicas m6s 
sofisticadas como el corte alfa-beta. 
Con este m6todo, complementario 
del minimax, se evita revisar todas 
las ramas del 6rbol que s'e genera al 
analizar un problema (por ejemplo, 
el drbol que se produce al observar 
los posibles movimientos en ajedrez). 
En 1967, R. Greenblatt present6 el 
primer programa de ajedrez que ga- 
naba sin dificultad a un jugador nor- 
mal. Sin embargo, este tipo de pro- 
gramas no se pueden considerar 
teligentes, pues s61o usan la fuerza 
bruta de la computadora, es decir, 
su capacidad de c61culo r6pido. (Se 
puede considerar inteligente a una 
persona que hace sumas muy depri- 

Robots e inteligen¢ia 
artificial 

A finales de los amos sesenta se de- 
sarrollaron en gran manera los estu- 
dios sobre sistemas inteligentes para 
la rob6tica, en particular en tres 
campos: visi6n artificial, planificaci6n 
de tareas y manipulaci6n de objetos. 
Es curioso notar que el t6rmino ro- 
bobs, que en checo significa trabajo 
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forzado, tuvo su origen en la come- 
dia R.U.R. escrita por el checoslova- 
co K. Kapek, en 1920 (ya en aquella 
6poca, la ciencia ficci6n tenia m6s in- 
fluencia que la propia ciencia). En 
IA, un robot es un mecanismo que re- 
cibe informaciones del mundo exte- 
rior mediante sensores (c6maras de 
video, ultrasonidos, rayos infrarro- 
jos, etc.) y tal que dodos unas 6rde- 
nes (posiblemente en un lenguoje na- 
tural, como el espafiol) es capaz de 
planificar las acciones que ha de Ile- 
var a cabo con el fin de ejecutar las 
6rdenes que ha recibido, modifican- 
do en consecuencia el universo que 
le rodea. Por ejemplo, basta que le 
digamos a nuestro robot que nos 
traiga una cerveza helada a Io terra- 
za, donde nos hallamos tomando el 
sol, para que Federico, que asi se lla- 
ma, cruce la puerta entre la terraza 
y el sal6n, pase luego al pasillo, Io- 
calice la puerta de la cocina, entre 
en ella, se dirija hacia el frigorifico, 
abra la puerta del mismo y extraiga 
una cerveza. Despu6s de arrojarla 
con su justa espuma sobre una jarra 
de cer6mica ir6 a buscar nuestros 
panchitos preferidos, Io colocar6 to- 
do en una bandeja y nos Io traer6 
hasta la terraza sorteando cuantos 
obst6culos encuentre. 

El problema m6s arduo con el que 
se enfrenta la rob6tica es, sin lugar 
a dudas, el de la visi6n artificial. Por 
otro lado, es una labor ineludible si 
queremos crear robots capaces de 
ejecutar complejas tareas de mani- 
pulaci6n de objetos en ambientes di- 
versos y cambiantes, es decir, capa- 
ces de adaptarse a su entorno. El 
problema se complica aOn m6s cuan- 
do se intenta dotar alas computado- 
ras de una visi6n m6s real, una visi6n 
en tres dimensiones. No se encuen- 
tran con este tipo de problemas los 
sistemas de visi6n artificial emplea- 
dos en la actualidad en la industria, 
ya que trabajan en unas condiciones 
ambientales bastante homog6neas: 
luz de igual intensidad en coda mo- 
mento, focos luminosos colocados 
siempre en los mismos lugares, los 
objetos que ha de manipular no va- 
rian, etc. 
Otro de los problemas fundamen- 
tales de la IA es la comprensi6n del 
lenguaje natural. Seria deseable po- 
der conversar con una computado- 
ra en nuestro propio idioma, pero los 
lenguajes naturales son tan suma- 
mente complicados y variables que 
todo intento por conseguir que una 
computadora pueda mantener n 
di61ogo serio y general con nosostros 

(o sea, los humanos) ha sido un fra- 
caso. Se han Iogrado progresos sig- 
nificativos limitando el tema de con- 
versaci6n a campos muy especificos. 
En este sentido es digno citar el tra- 
bajo realizado por T. Winograd 
(mago de la informtica) con su pro- 
grama SHRDLU (llamado asi por ser 
6stas las letras queen orden de 
xima aparici6n ocupan en ingl6s los 
lugares del s6ptimo al duodecimo, 
ambos inclusive). Este programa, 
creado en 1970, conoce y manipula 
un mundo de bloques (cubos, pir6- 
mides y cajas) de diversos colores y 
tamafios situados sobre una mesa. 
(En realidad, el programa no mane- 
ja fisicamente ningOn mundo de este 
tipo, ni tan siquiera Io representa so- 
bre una pantalla de ordenodor, pe- 
ro 61 debe saber Io que se hace). Se 
le pueden hacer preguntas sobre un 
universo y dar 6rdenes para que ma- 
nipule los bloques, todo ello en in- 
gl6s. El programa actOa de igual for- 
ma que Io deberia hacer un robot, 
planificando las acciones que tiene 
que Ilevar a cabo en un orden preci- 
so. Veamos un ejemplo de la actua- 
ci6n de SHRDLU.' Supongamos que 
en el estado inicial hay sobre la me- 
sa un bloque grande rojo y dos blo- 
ques verdes medianos, sobre uno de 

ceooeeY AMSTRAD 7 

,,I 



los cuales descansa una pir6mide ro- 
ja mediana. Sabre la mesa tambi6n 
estg un bloque rojo pequeo que tie- 
ne encima una pir6mide verde pe- 
quea. Un posible di61ogo (natural- 
mente traducido, porque a0n no en- 
tiende de castellano) seria el siguien- 
te: 

OPERADOR: Podrias apilar, par 
favor, los dos bloques rajas y tam- 
bi6n un cuba verde o una pirmide? 
SHRDLU: Con gusto. 
OPERADOR: Qu6 cuba se halla 
sabre la mesa? 
SHRDLU: El cuba verde grande 
que soporta a la pirmide roja. 
OPERADOR: Pan un cuba peque- 
o sabre el cuba verde que soporta 
una pir6mide. 
SHRDLU: Muy bien. 
OPERADOR: Coloca sabre 61 la pi- 
rmide ms pequea. 
SHRDLU: De acuerdo. 
OPERADOR: Cu6ntas cosas est6n 
situadas par encima de los cubos ver- 
des? 
SHRDLU: No estoy seguro del sig- 
nificado de por encima en la frase 
<por encima de los cubos verdes. 
Quieres decir: 
1. Directamente en contacto con 
su superficie. 
2. En cualquier lugar m6s alto. 
OPERADOR: 2. 
SHRDLU: Hay tres. 
OPERADOR: Has tirado alguna 
pirmide antes cle colocar la verde 
sabre el cuba pequeo? 
SHRDLU: Si, la verde. 
OPERADOR: Cundo la cogiste? 
SHRDLU: Mientras estaba apilan- 
do el cuba rojo, un bloque rojo gran- 
de y un cuba verde grande. 
OPERADOR: Por qu6e. 
SHRDLU: Para desembarazarme 
de ella. 

OPERADOR: Por qu6 hiciste eso? 
SHRDLU: Para despejar el cuba 
rojo. 
OPERADOR: Por qu6 despejaste 
ese cuba? 
SHRDLU: Para colocarlo sabre un 
cuba verde grande. 
OPERADOR: F'or qu6 hiciste eso? 
SHRDLU: Para apilar el cuba ro- 
jo, un gran bloque rojo y el cuba ver- 
de grande. 
OEPRADOR: Por qu6 hiciste eso? 
SHRDLU: Porque tg me Io pediste. 

Pensamiento y 
experiencia 

De no ser que los programas sean 
capaces de ampliar sus 
des hacienda usa de sus experie- 
cJa$, su rendimiento estar6 limitado 
par el conocimiento, previsi6n y tiem- 
po libre del programador. De ahi 
que la capacidad de aprender ad- 
quiera una tremenda importancia en 
IA. El mundo de bloques de Wino- 
grad est6 siendo utilizado par algu- 
nos investigadores de la IA coma un 
magnifico laboratorio donde experi- 
mentar diversas estrategias de 
aprendizaje. 
La conversaci6n (inteligente) de 
SHRDLU y su comprensi6n del mun- 
do con el que trata nos introduce en 
otro fructifero campo de la IA: el de 
los sistemas expertos. 
En los primeros aos setenta, un 
equipo de trabajo de la Universidad 
de Stanford intentaba crear un siste- 
ma capaz de determinar la estructu- 
ra de un compuesto orgnico com- 
plejo a partir de ciertos datos expe- 
rimentales coma su espectro de ma- 
sas. Dado queen este campo es ina- 
plicable la combinatoria, los investi- 
gadores de Stanford dirigieron sus 

trabajos par otros caminos. Se hacia 
preciso construir un sistema capaz de 
utilizar grandes cantidades de cono- 
cimientos y hacer deducciones a par- 
tir de elias. Se plantearon par tanto 
dos nuevos problemas: manejar 
grandes bases de datos de forma eft- 
caz y utilizar los conocimientos que 
ya poseia de forma que produjese 
datos completamente nuevos. Un 
problema paralelo era la obtenci6n 
de los conocimientos iniciales, para 
Io cual se precisaba de la ayuda de 
los expertos en el campo del anlisis 
quimico. Coma consecuencia de 
aquellos trabajos surgi6 el sistema 
DENDRAL. Este sistema evolucion6 
r6pidamente y permiti6 crear nuevos 
m6todos para la IA. La experiencia 
adquirida Ilev6 a la aparici6n en 
1974 MYCIN, el primer sistema ex- 
perto, capaz de diagnosticar una in- 
fecci6n bacteriana y recetar los an- 
tibi6ticos ms apropiados para com- 
batir la enfermedad. Adem6s, 
MYCIN puede solicitar los informes 
clinicos que crea convenientes para 
realizar un pron6stico m6s fiable. Es- 
te sistema acierta sus predicciones en 
un 80 par 100 de los casos, iNo es- 
taria mal hacer un sistema experto 
para rellenar quinielas si fuese capaz 
de acertar los catorce con tanta fa- 
cilidad coma MYCIN cura catarros! 
Una de las caracteristicas m6s des- 
tacadas de los sistemas expertos es 
su separaci6n entre los conocimien- 
tos que utilizan (la base conocimien- 
tos) y el programa que permite ha- 
cer deducciones (el motor de inferen- 
cia). Esta separaci6n tiene dos gran- 
des ventajas: la primera es que los 
datos pueden ser ampliados, supri- 
midas o modificados con gran facili- 
dad; la segunda es que el motor de 
inferencia puede ser un programa 
general, vlido para cualquier siste- 
ma experto. Esta validez general le 
hace ser un programa sumamente 
complejo, pero se construye de una 
vez par todas. 
La programaci6n de este tipo de 
sistemas se via facilitada con la apa- 
rici6n de los lenguajes declarativos, 
coma el PROLOG, creado par A Col- 
merauer en 1975. Con este tipo de 
lenguajes el programador puede ol- 
vida. rse bastante de la forma de re- 
solver un problema, dedicndose ca- 
si exclusivamente a describirlo. Este 
tipo de lenguajes junto con tas nue- 
vas arquitecturas de ordenadores, 
formadas par varios cientos de pro- 
cesadores, seguramente supondrn 
un significativo avance en IA, cuyas 
consecuencias todos habremos de 
notar en no muchos aos. 



U 

Inform  tica 

Presenta: tableta 
GRAFPAD H- 

LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GR, FICOS 
PARA AMSTRAD, COMMODORE Y BBC 
La primera tableta grfifica, de bajo costo, en ofrecer la duraci6n y presta¢iones requeridas por las 
aplicaciones de negodos, industria, hogar y educaci6n. Es pequefia, exacta y seu'a. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un producto dnico que pone la potencia de 

la tecnologia moderna bajo el control del usuario. 

DIBUJO A MANO . 1.2ADA 
SOFTWARE DE ICONOS 

*tMBINA N UN UNICO DISPOSITIVO TODAS LAS 
' ' ESTACIONES DE LOS INTENTOS PREVIOS DE 
ECANIS.MOS DE ENTRADA DE GRAFICOS. LAS 
• PLICACIONES SON MAS NUMEROSAS Q.UE EN LOS 
t . AS DISPOSITIVO  MUNES E IN.. EN: 
* >-Iecci6n deopcion, * ntrada.de modet,, • ecogidade 
,.t,, t ,isefio 16gico • disefio de ¢ircuit, • creaci6n de 
, gen , • :lmacenammnto de image es • recupera¢i6n de 
reagent, • 0isefio para construcci6n • C.A.D. (disefio a.sis 
,,rordena,or) * dustraci6n de textos • jut:,-, • 

ESPECIFICACIONES 
RESOLUCION: 
1.280 x 1.024 pixels. 
PRECISION: 
1 pixel. 
TASA DE SALIDA: 
2.000 pares de coordenadas pot 
segundo. 
INTERFACE: 
paralelo. 
ORIGEN: 
borde superior izquierdo o 
seleccionable. 
DIMENSIONES: 
30x260x 12 mm. 
DISPONIBLE AMSTRAD: 
CASSETTE .... 23.900 ptas. 
DISCO ............ 25.900 ptas. 
OVA NO UNCLUIOO) 
ACIL DE USAR. 
RAZADO PCB. 
.A.D. 
, REA DE DISEN t D IN . 4 
OLOR EN ALTA 
' ESOLUCION. 
SO EN HOGAR Y 
EGOCIOS. 
ARIEDAD DE PROGRAMA 
D ISPONIBLES. 

•  IBUJO A MANO ALZADA. 
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• ,,.. 0". n 6 :' 
Ofites Tels. 455544-455533 
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Hasta la fecha, por la secci6n Para... PCW ban pasado varios 
programas, la mayoria de los cuales ya eran conocidos en versiones 
para otros ordenadores, y casi todos realizados fuera de nuestras 
fronteras. Pero el Arnstrad PCW 8256 cuenta carla da que pasa con m6s 
software realizado en EspaRa, y precisamente hoy pasamos por el 
banco de pruebas uno de los de m6s re¢iente apari¢i6n: FACTURACION. 

n programa de 
facturaci6n es aqu61 que getiona 
tanto la impresi6n de facturas, como 
la clasificaci6n de dichas facturas, de 
manera ordenada. La entrada en vi- 
gor del Impuesto Sobre el Valo¢ Aa- 
dido hace tolalmente necesario con- 
trolar perfectamente tanto las factu- 
ras emitidas como las recibidas. Los 
programas de facturaci6n, usual- 
mente, solucionan el problema de las 
facturas emitidas, proporcionando 
un control m6s o menos detallado de 
las mismas, dependiendo del grado 
de control de las posibilidades del 
propio paquete. 
Para analizar este programa, hay 
que tener en cuenta varios puntos; 
versatilidad, facilidad de manejo y 
posibilidades son los que vamos a 
analizar a continuaci6n. 

Versatilidad 

Un buen programa debe adaptar- 
se f6cilmente a una gran variedad de 
usuarios, en vez de ser 6stos los que 
se adapten a 61. Debe tener previs- 
tas la mayo6a de las necesidades de 
los usuarios medios. 
Este programa de faduraci6n per- 
mite almacenar el nombre, DIF direc- 
ci6n, tel6fono del usuario, y los sit0a 
en las facturas como cabecera del 
papel. Esto se hace la primera vez 

que se utiliza el programa, y no se 
podr6 modificar posteriormente. No 
es, pues, necesario disponer de pa- 
pel especial para imprimir las factu- 
ras, aunque si se tiene, se pueden de- 
jar en blanco los campos que figuren 
en los impresos, y asi s61o imprimird 
los que se necesiten. La incorpora- 
ci6n del CIF resulta especialmente 
Otil, dado que es imprescindible po- 
nerlo en las facturas, dada la legis- 
laci6n vigente. 

Ademds, este programa dispone 
de un fichero para tener almacena- 
dos los clientes principales, para evi- 
tar tener que teclear sus datos cada 
vez que se haga una factura. Den- 
tro de estos datos, tambi6n est6 pre- 
visto almacenar su CIF o bien su 
DNI. Aparte de esto, a cada cliente 
se le asigna un c6digo alfanumerico, 
que es el dato usado para Iocalizar- 
los. El resto de los datos, nombre, 
domicilio y tel6fono, son m6s que su- 
ficientes para tener clasificado a ca- 
da cliente. Para los no habituales, se 
pueden introducir los datos manual- 

mente, sin necesidad de darle un 
digo, ni almacenarlo en el disco. 
El formato de las facturas es est6n- 
dar, admitiendo hasta 30 articulos 
por factura, y de cada articulo la 
cantidad, descripci6n, PVP, descuen- 
to, IVA y calculando autom6ticamen- 
te el total en base a estos datos. 
Resumiendo este apartado, el pro° 
grama es versdtil y se adapta sin pro- 
blema a cualquier proceso normal de 
  ; ...... 
,',',, 

facturaci6n, Ilevando un control de 
facturas eficiente. 

Manejo 

El programa viene acompaado 
<<simb611camente por un peque6o 
cuaderno de instrucciones, dada su 
filoso.qa de que las pantallas est6n 
muy claras. Con esto 01timo es fdcil 
estar de acuerdo, dado que efecti- 
vamente Io estdn, pero nunca viene 
mal explicar las cosas un poco mes, 
particularmente el dar la clave de 
Pagado o Anulado a una factura, 
que no queda nada clara. 
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 uidad es A: 

El disco del programa viene pre- 
parado para arrancar el ordenador, 
con el sistema incluido en dl. No s6- 
Io es Otil, sino que adem6s es conve- 
niente hacerlo asi, dado que alguna 
vez que no se ha arrancado con dl, 
sino con el disco original de CP/M, 
ha dado alg0n problema de impre- 
sora. Esto no es raro, dado que el 
programa de arranque cambia cier- 
tos valores por defecto de la misma. 
Los programas vienen en la primera 
cara del disco, de la que --por 
cierto-- no se puede hacer copia de 
seguridad, por estar protegida. Es- 
to puede evitar el qirateo, pero a 
costa de arriesgar al usuario a algu- 
na incomodidad. La segunda tara es 
la destinada a los ficheros, y aqui na- 
turalmente si permite copias de segu- 
ridad. Aparte de esta cara del disco, 
se pueden utilizar los discos que sean 
necesarios para almacenar ficheros, 
y se puede optar adem6s al cambiar 
de disco pot poner el ndmero de fac- 
tufa a cero, o bien continuar con el 
siguiente al 01timo. 

Opciones principales 

El manejo del programa es f6cil. 
Tiene un men0 principal, donde po- 
demos elegir una de las cinco opcio- 
nes que posee. Estas son: 
Clientes: Permite dar altas, modi- 
ficaciones, bajas y consultas de clien- 
tes. De cada cliente pide un c6digo, 
alfanum6rico, que es el que luego sir- 
ve para Iocalizarlo. Adem6s, su 
nombre, domicilio, poblaci6n, tel6fo- 
no y DNI o C6digo de Identificaci6n 
Fiscal. 

Facturas: Permite introducir las 
facturas. Pide la fecha y el c6digo de 
cliente. Si se le da, busca en el archi- 
vo y rellena los datos siguientes auto- 
m6ticamente. Si no se le da, pide que 
se introduzcan manualmente sus da- 
tos, para la factura. Despu6s, se in- 
troducen las partidas que componen 
la factura, hasta un m6ximo de 30, 
calcula el Total bruto, el Descuento, 
la cantidad de IVA, y el Total Neto 
a cobrar. Permite imprimir la factu- 
ra o continuaci6n, o dejarlo para 
m6s adelante y seguir introduciendo 
facturas. En la ilustraci6n de este ar- 
ticulo, se puede ver un ejemplo de 
factura realizado por este procedi- 
miento. 

Listados: Permite hacer listados de 
clientes y facturas. En todos los ca- 
sos los listados pueden ser totales o 
parciales, yen las facturas se pueden 
seleccionar por fecha, c6digo de 
cliente, nOmero y c6digo de pago. 
(A. Anuladas, P. Pagadas) El listado 
se puede enviar a la impresora, o 
simplemente hacerlo por pantalla. El 
listado de facturas incluye al final del 
mismo, los totales de cada apartado. 
Impresi6n de facturas: Opci6n 
pensada por si el proceso de hacer 
la factura y el de imprimirla se quie- 
ren hacer separados, y aunque no 
quede claro en el manual, tambidn 
se puede usar para dar a la factura 
un c6digo de pago. Despuds de pe- 
dir el intervalo de facturas que se de- 
sea imprimir, presenta la primera de 
elias en pantalla. Si 6sta tiene ya c6- 
digo, aparece en la pantalla PAGA- 
DA o ANULADA. Si no tiene c6digo 
no aparece nada, pero en cualquier 
caso, despus aparece el cursor, y 
ahi hay que poner el c6digo de pa- 
go. 
Iniciaci6n: Esta opci6n se elige pa- 
ra iniciar una cara de un disco for- 
mateado, de manera que se pueda 
empezar o continuar con el proceso 
si se Ilena un disco de datos. 

FCT rio,,, : 032 
FECHA : I//88 HOMBRE : Ifoso Perez HI o CIF : 4444 
COD,CLITX: 4444 DOMICIGIO: Can Ui ? 8,: Gadaias 
CAHTID COXPIO UP lO XIUA TOIAL 
l ds de Piskettes L 
Ctucho de Tin presora 19  i  
IX  Pel continuo Factas X I 1 4336 

IMPII] FACTU?(S/H) 

TOTAL bEUEHTO$: 
TOTAL ETO ...... : 
TOTAL  C08AR,,: w1,19,83 
I 

La unidad es A: 
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Permite iniciar el fichero de clien- 
tes, el de facturas sin poner el con- 
tador de 6stas a cero y poner dicho 
contador a cero. De esta manera se 
puede continuar introduciendo fac- 
turas con n0mero correlativo, pero 
habiendo borrado las anteriores, o 
simplemente disponer de varios dis- 
cos de datos. 
La presentaci6n del programa es 
simple, pero resulta m6s que suficien- 
temente efectivo. La Iocalizaci6n de 
los clientes es rdpida, y aunque la im- 
presi6n de facturas no es muy veloz, 
las opciones proporcionan toda la in- 

formaci6n necesaria para Ilevar una 
gesti6n correcta y legal. 

J Posibilidades 

Las posibilidades de este progra- 
ma son mds que suficientes. Permite 
imprimir las facturas clasificadas por 
el c6digo de pago, saber la situaci6n 
de determinado cliente, el detalle de 
los descuentos efectuado, el detalle 
del IVA repercutido, el total bruto y 
neto facturado, y todo esto separa- 
do por fechas, clientes o nOmeros de 
factura. La estructura del programa 

permite disponer de varios discos con 
archivos de facturas, y el n0mero de 
factura, que es automatico, permite 
hasta 999.999 facturas. 

Conclusiones 

Los listados que proporcionan son 
completos, aunque cuando se pide el 
listado de facturas pagadas o anu- 
ladas quiz deberia especificar en el 
papel qud tipo de facturas est6 listan- 
do. Pero es s61o un detalle. Otro de- 
talle inc6modo, es queen determina- 
dos campos desactiva la tecla de bo- 
rrado y la de cursor a la izquierda, 
aunque siempre pide conformidad 
antes de introducir una informaci6n, 
por Io que siempre se puede reme- 
diar. No obstante, seria m6s fdcil ha- 
ber permitido el funcionamiento de 
dichas teclas siempre. De todas ma- 
neras son dos pequefios detalles ne- 
gativos dentro de Io que es un buen 
programa. Y un consejo. Una vez ini- 
cializado el programa, poner la pro- 
tecci6n contra escritura, para evitar 
((accidentes>. 

IHICICIOH 

I, Clientes, 
, Facturas. 
3, Conador tacturas a cero, 
4, Menu principal, 
OK : | 

NOT:ecuerde ue los datos 
anteriores seran borrados 
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UEVA$ FUNCION $ DE 

TRATAh'II 

TO DE PAL' BRA$ 

Recordar. que no ha mucho, acampcbamos en el reino de 
las cadenas, quiz la mcs codiciada regi6n de BA$1CLAND. 
para conseguir su dominio. Vamos a dar un gran paso en 
este sentido, estudiando el uso avanzado de las variables 
alfanumricas. 

o 

V 

abfan os 
wsto casi todas las sentencias quc se 
relacionaban de forma directa co el 
tratamiento de las cadenas. Sent,+n- 
cias que, por su particular actuaci ,n, 
reciben el nombre de sentenoas de 
libreria. Recordar6 que habl6bamos 
de una instrucci6n muy especial, 
MIDS, que tiene una actuaci6n biva- 
lente, como funci6n o como orden. 

Diferencias entre 
6rdenes y funciones 

Lo primero seria establecer la di- 
ferencia existente entre 6rdenes y 
funciones. La cualldad que marca 
una distancia ms clara entre ambas 
definiciones seria que la funci6n pre- 
cisa de un argumento, parte sobre la 
cual se ejerce sta, provocando un 

resultado, num6rico o alfanumrico. 
E emplos claros de funci6n serian: 
LEN, LEFTS o COS. Observe que a 
funci6n, acompafiada de su argu- 
mento, no tiene mucho sentido por 
si sola. Deberemos hacer algo con su 
resultado, escribirlo, o asignarlo, 
compararlo. Las 6rdenes por el con- 
trario tienen entidad propia en si mis- 
mas, la cualidad comOn es iHAZ!, 
PRINT, RUN o GOTO serian claros 
ejemplos de este subconjunto de las 
sentencias del Basic. 
El hecho de que una misma pala- 
bra del Basic pueda ser una funci6n 
o una orden no deberia incomodar- 
le, de hecho, en castellano no se con- 
funde, a no ser en una situaci6n ca- 
rente de contexto, el verbo <<haz> 
con el sustantivo <haz, de luz. Ha- 
biamos visto el uso de MIDS como 
orden, recordar6 que: 
MIDS (AS, 
Tenia como eecto la fransorma- 
ci6n de AS en una cadena idnfica 
a Io que era AS, salvo en los elemen- 
tos 3 y 4 (a parfir de 3, 2 elemenfos), 
en los que tendria los caracteres 
y 
El uso de MIDS como funci6n es 

muy sencillo: no es sino una sofisti- 
caci6n de la ya conocida funci6n 
LEFTS. 
MIDS (AS, n, m), Io que hace es 
generar una subcadena de AS to- 
mando de esta m elementos a partir 
del elemento n. 
+Todo claro? Bien, pues hay va el 
primer reto, intente comprender la 
diferencia existente entre: 
10 bS ='"1234" 
20 aS ="abcdefghi" 
30 bS=MIDS (aS, 3, 4) 
Y: 
10 bS ="1234" 
20 aS = "abcdefghi" 
30 MIDS (aS, 3, 4)=bS 
Si ha comprendido esta sutil dife- 
rencia el MIDS es suyo. 

Funciones VAL y STR$ 

Recordemos ahora, las otras dos 
instrucciones que, de la ya mencio- 
nada lista, nos quedaban por ver, 
VAL y STRS. 
Son dos funciones tolalmente dua- 
les, con Io que la comprensi6n de 
una le Ilevar6 f6cilmente al entendi- 
miento de la otra. Comenzemos por 
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VAL. La misi6n de esta funcion es 
transformarnos una variable alfanu- 
m6rica en num6rica, naturalmente, 
hasta dande sea posible; me explico: 
supangamos que tenemos una varia- 
ble alfanum6rica AS--"123dsd12". 
Si ahora hici6semos P=VAL (AS), el 
valor de P no seria sino: 123. Si el pri- 
mer caracter encontrado en la cade- 
na alfanum6rica no fuera num6rico, 
obtendrfamos como resultado 0. 
STRS, como anuncicbamos, reali- 
za la operaci6n contraria. Si tenemos 
P--123 y hacemos AS--STRS (P), el 
valor de AS tras esta asignaci6n se- 
ria, "123". N6tese la diferencia en- 
tre los contenidos de P y AS: P vale 
ciento veintitr6s, y AS vale uno, dos, 
Ires. 
Como ejemplo prcctico de utiliza- 
ci6n asi como de utilidad, nos remi- 
timos a los programas II y III. 
En el programa II suponemos que 
intentamos Ilevar el control de cier- 
tos productos vendidos, mediante sus 
facturas. Utilizaremos para ello una 
variable alfanum6rica, en los prime- 
ros caracteres pondremos el impor- 
te de la factura y los tres 01timos ca- 
racteres los usaremos para un c6di- 
go del producto al que hacen refe- 
rencia. Asi FACTS = "109070ORD", 
seria la factura correspondiente a un 
ordenador cuyo importe .asciende a 

109.070 pesetas. Bien, el problema 
ahora es que ha Ilegado el tan co- 
mentado IVA y a todas nuestras fac- 
turas hemos de incrementarles un 
tanto por ciento, supongamos un 10 
por 100. El programa II realiza esta 
operaci6n mediante la orden VA1. 
Ahora deberemos unir nuevamente 
el importe de la factura, IMP, con el 
c6digo del producto, CODS. Labor 
que realiza el programa III. 

Creando funciones 

Sin embargo, a0n queda una, no 
mencionada, por explicar, se llama 
IMAGINACION. No intente teclear- 
la pues se encontrar irremediable- 
mente con el fatidico Sintax error. 
Habfamos hablado de ciertas funcio- 
nes que el ordenador es capaz de 
utilizar en el tratamiento de cadenas. 
Sin embargo, c6mo no, su fiel CPC 

est6 perfectamente preparado para 
aprender todas los funciones nuevas 
que usted est6 preparado para en- 
searle, en un nOmero no superior a 
cuarenta. A este punto nos vamos a 
referir ahora: c6mo se definen fun- 
ciones y c6mo se utilizan. Aunque de- 
tallaremos el empleo de 6stas para 
alfanumricas no existe diferencia 
formal con la definici6n de funciones 
num6ricas. DEF FN y FN 

II' REM lY programa 2 
20 RFM--DEMULRA EL USO DE VAL--- 
'l' CLS 
40 act$ " I0901ORD" 
5r PRINT facts 
60 import e=VAL act$) 
7r REM--calculamos el 10%-- 
80 Importe importe (importe/100)%1 
0 
9r PRINT 'NUEVO IMPORTE 
porte 
I0 REM %% programa 3 %% 
20 REM--DEMUESTRA EL USO DE STR$-- 
30 IMPORTE 119911 
4 PRINT importe 
50 CODIGO$ "ORD" 
b PRINT codlgo$ 
70 IMPS STR$(importe) 
80 act$ imp$+cdgo$ 
90 PRINT act$ 

Como ya habr6 intuido la prime- 
ra de estas sentencias nos va a ser- 
vir para definir nuestras funciones. 
Veamos cul es su sintaxis: 
DEF FNnombre IS] (argil, 
arg2 ..... argN) = operaciones con 
estos argumentos. 
Suponga que su CPC desconoce la 
funci6n LEFTS y que va a utilizar mu- 
chas veces esta funci6n. Nosotros 
disponemos de otra funci6n MIDS, a 
partir de la cual podemos perfecta- 
mente sustituirla, utilizando como pri- 
mer par6metro, 1, en forma de cons- 
tante. Es decir: 
MIDS (AS, 1, N) 
Es Io mismo que: 
LEFTS (AS, N) 
Bien, definir ahora la funci6n 
LEFTS, es forea facil: 
)EF FNlefS (AS, N)=MIDS 
AS, l, N) 

I0 REM l% programa 4 
20 CLS 
%0 REM .... USO I)E STRINGS--- 
40 FOR n- %% TO 255 
50 PRINT STRINGS ( 
60 bEXT n 

Observe que los argumentos de 
esta funci6n, AS y N, 3 son alfanu- 
m6rico y num6rico respectivamente. 
Si ahora quisi6semos extraer los 4 
primeros t6rminos de PS y asignar- 
los a HS, nos bastaria teclear. 
HS=FNIefS (PS, 4) 
Es importante, resaltaF que los 
nombres de los por6metros de entra- 
do, AS y N en nuestro caso, no tie- 
nen por qu6 coincidir con el de las 

10 REM % programa 5 il 
20 REM .... USO DF MID$ (ORDEN) .... 
"0 A$-"MISlON:modi(Icar este TRO70 
de 1 a cadena" 
40 PRINT aS 
50 MID$(A$,I.b) "EFECTO" 
60 MID$(A$2,5) -' CACHO" 
70 PR I NT 
80 RRINT A 

variables, sobre las que vayamos a 
aplicar nuestra funci6n. La 0nica con- 
dici6n es respetar el orden estable- 
cido en el interior del par6ntesis. 
Entendido? Bien, naturalmente en 
nuestro caso la funci6n es tan corta 
que no tiene mucho sentido el deft- 
nirla, aparte de estar ya definida en 
el Basic del Amstrad. Sin embargo, 
basra que tenga dos sumandos pa- 
ra que sea ms que probada su utili- 
dad. 

10 REM %%, programa 6 % 
20 CLS 
30 REM --USO DE RIGTII Y LEFTH$-- 
40 AS -zquierdaderecha" 
50 PRINT aS 
60 PRINT 
70 PRINT "9 caracteres contarldo des 
de la izquierda" 
80 PRINT LEFT$(a$9) 
90 FRINT 
I00 PRINT '7 caracteree contando d 
sde la derecha" 
110 FRINT RIGHTS(aS.7) 

N6tese que la S detr6s del nombre 
asignado a la funci6n deber6 aa- 
dirse, siempre y cuando el resultado 
obtenido mediante la aplicaci6n de 
esa funci6n sea alfanum6rico; si no 
fuese asi, no s61o es innecesario sino 
causa de error. (Type Mismacht). Es- 
to es igual en los funciones ya defini- 
das en su CPC. Aquellas que entre- 
gan un resultado num6rico no la lie- 
van, LEN, INSTR, COS; en contrapo- 
sici6n con las que Io dan alfanum6- 
rico que si van etiquetadas con S, 
LEFTS, MIDS, STRS. 

La utilidad 
de las funciones 

A estas alturas se habr pregunta- 
do ya varias veces para qu6 diablos 
puede servirle esta cualidad del Ba- 
sic de su CPC. Evidentemente, no po- 

10 REM t programa 7 %1 
20 CLS 
"0 REM .... USO DE LEN .... 
40 INPUT "Introduzca texto:":a$ 
50 PRINT 
60 F'RINT 'la longltud de SEt tevto e 
70 PRINT LEN (aS) 

demos darle una lista de todas las 
ocasiones en las que el uso de FNes 
sea aconsejable. Sin embargo, si po- 
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1(' REM 
20 CLS 
"0 REM - --USO )b SPACES ..... 
40 FOR n I TO 21 
50 PRINT STRINGS 
60 NEXT n 
70 LOCATE 
1-22) " ,b 
90 LOCATF I.b:PRINT SPACES(40) 
100 GOTD 

demos ponerle unos ejemplos, don- 
de el uso de ciertas funciones defini- 
das desde el teclado puede Ilevarnos 
a un resultado tan elegante como 
potente. 
Existen lenguajes, no es el caso del 
Basic, en el que es posible definir 
nuestras propias estructuras de da- 
tos, Pascal, Fortram... conforme alas 
necesidcdes de nuestro programa. 
Esto, que tan sumamente complejo 
puede parecer a simple vista (de he- 
cho su empleo puede serlo) es algo 
sumamente sencillo de entender. 
Una estructura de datos no es si- 
no un conjunto de dotos relaciona- 
dos entre ellos de forma determina- 
da. Tambi6n dentro de la estructura 
de datos se incluyen las operaciones 
que con estos datos vamos a poder 
realizar. Un eiemplo de estructura de 
datos que ya conocemos, y que ya 
est6 definido en el Basic, son las ma- 
trices o arrays. A (1, 1), A C1, 2), A 
(2, 1)y A (2, 2)formarian una estruc- 
tura de datos junto alas operacio- 
fles +, --, *, /. 
Existe un tipo de estructura de da- 
tos, que por su utilidad suele creer- 
se, implementarse seria la palabra 
adecuada, frecuentemente en distin- 
tos programas. La cola. Su estructu- 

I REM  programa 9 
IO REM ..... FNid$(cola$,neo$) ..... 
20 REM ..... INCORF'ORA UN NUEVO ..... 
30 REM--ELEMENTO POR LA DERECHA-- 
40 DEF FNID$(cola$,ne$)-cola$+neo$ 
5(: AS 
&O INPUT C$ 
70 A$-FNID$(A$,C$) 
QO PRINT AS 
9' GOTO bO 

ra es muy sencilla, podria comparar- 
sea una ilia de autom6viles en un t6- 
nel estrecho. Podemos sacar por un 
lado y meter por el otro, Io que no 
podemos es ni eliminar ni meter por 
el centro. En el caso de que nuestros 
datos dispusieran de marcha atr6s 
podremos sacar y meter por ambos 
lados indistintamente. 
Dicho esto, seguramente se figura- 
r6 que la cola que vamos a crear, no 
va a ser sino una variable alfanum6- 
rica que Ilamaremos colaS. 
Naturalmente, este planteamiento 
conllevar6 ciertas limitaciones. La 
primera ser6 la Iongitud de la cola, 
255 caracteres. La segunda la Iongi- 
tud de cada uno de los datos que 
conforman la cola, deber6 tener una 
Iongitud prefijada. En el caso de que 
esta Iongitud sea de un caracter, po- 
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dremos almacenar hasta 255 datos, 
para dos caracteres por dato tendre- 
mos una cola de 127 datos como m6- 
ximo, 83 para tres caracteres y, en 
general, 255/n para n caracteres por 
dato. 
Por ejemplo si nosotros quisise- 
mos almacenar los n0meros 32, 45, 
56, 1, 23 y 12, podriamos emplear 
para ello seis variables distintas, pe- 
ro si nuestras necesidades no nos Io 
impidiesen podriamos utilizar para 
ello, una variable alfanum6rica que 
quedaria, si la Iongitud de nuestros 
nOmeros fuera de dos cifras: 
COLAS ="324556012,312". 
Una vez definida la base de nues- 
tro almacenamiento, precisamos 
crear ciertas funciones, que faciliten 
el manejo de cualquier cola. 

L REM  program 10  
LO REM--FN$(coI$,no$-- 
20 REM--INCORPORA UN NUEVO-- 
0 REN-ELEMENTO PO LA IZQUIERDA- 
40 DEF FNII$(cola$neo$ neo$÷cola$ 
5 AS-"" 
60 INPUT C$ 
70 A$-FNII$(A$,$ 
80 PRINT AS 
90 GDTO 60 

Estas funciones estn definidas en 
la linea 40 de los programas VIII, IX, 
Xy XI, respectivamente. Aunque el 
uso de estos programas puede ser 
m6s que suficiente para ver la utili- 
dad de los funciones, que en ellos se 
definen, describamos 6stos con m6s 
detalle. 

Los programas 

El programa VIII demuestra la uti- 
lizaci6n de una de las funciones que 
precisamos en el tratamiento de 
nuestros datos. La operaci6n que 
realiza es muy simple, aade un nue- 
vo dato a la cola. Si tenemos defini- 
da una cola cuyo nombrees aS yhe- 
mos de incorporar un nuevo elemen- 
to nS, nos bastar6 con hacer 
aS--fnidS (aS, nS). El programa, al 
igual que los siguientes, demuestra el 
uso de 6sta, mediante un ejemplo. 
La funci6n definida en la linea 40 
del programa IX, realiza la misma ta- 
rea, con la salvedad de incorporar 
los nuevos datos por la izquierda. 
En los programas X y XI, nos en- 
contramos con una sofisticaci6n de 
estas dos funciones. La funci6n del 
programa X aparte de incorporar un 
nuevo dato por la derecha, elimina 
uno por la izquierda. Y la del pro- 
grama XI realiza la operaci6n inver- 
sa, incorpora por la izquierda a la 
vez que elimina por la derecha. AI 
principio de estos programas se nos 
solicita la Iongitud de la cola, la cual, 

una vez Ilena, captar6 y perder6 ele- 
mentos. 
Mediante estas cuatro funciones 
m6s la sentencia INSTR, ya conoci- 
da y comentada en el articulo ante- 
rior, es mucho el juego que podemos 
dar a estas estructuras. Existir6n aOn, 
algunas funciones que podrian per- 
mitirnos un tratamiento m6s c6modo 
de las colas. Intente definir dos fun- 
ciones que eliminen el Oltimo dato, el 
de la derecha, y-el primero, el de la 
izquierda. 
Habr6 observado que la estructu- 
ra que hemos creado, no permite el 
uso de datos con ms de dos carac- 
teres. Es decir, si los datos fueran nu- 
m6ricos, no podriamos almacenar 
n0meros superiores a 9. Esta condi- 
ci6n, a la altura que nos encontra- 
mos no debiera suponerle ninguna 
tragedia irreparable, intente modifi- 
carlo para que sirva para datos de 
dos caracteres. Naturalmente, si no 
desea que todo se le vaya al traste, 
respete este nuevo formato y si de- 
sea almacenar un 3, almacene 03, o 
si desea almacenar una A almacene 
junto a la A un espacio ("A"). 
Un ejemplo cl6sico de este tipo de 
estructuras es el BUFFER, un buffer 
no es sino una cola de espera. Su 
CPC dispone de varios buffer, el del 
sonido por ejemplo; si usted exige a 
su ordenador la ejecuci6n de 7 no- 
tas 6ste carga sus valores en el buf- 
fer de sonido y las va enviando al ge- 
nerador de sonido, PSG, a medida 
que las va ejecutando. De este mo- 
do, puede ir realizando otra cosa, no 
teniendo que estar detenido espe- 
rando a que finalize la ejecuci6n de 
6stas. Existen otros buffer, para el te- 
clado, para la impresora... 
Despu6s de toda esta sinfonia te6- 
rica se preguntar6 qu utilidad pue- 
de dara todos estos nuevos conoci- 
mientos que se incorporan a su nue- 
vo bagage inform6tico. Nosotros 
pot nuestra parte poco es Io que po- 
demos ofrecerle en este aspecto. Es 
usted, junto a su CPC, quien debe de- 
cidir como solucionar los problemas 
que se le vayan planteando, no obs- 
tante y para abrirle el apetito, vaya 
a continuaci6n un pequeo progra- 
ma que aprovecha este tipo de alma- 
cenamiento de datos. 

I REM $ program 11 
10 REM -FNOER$(cola$,neo$)- 
20 REM-[NCORPORA F'Oh LA FRECHA- 
30 REM-Y EXTRAE POR LA IZOUIERDA- 
0 DEF FNder$(cola$,neo$)=(RIGH$(c 
ol$.ion-1)+no$) 
50 CLS 
70 INPUT "longtud de la list: 
on 
80 a$=SPACE$(Ion 
90 INPUT "NUEVO ELEMENTO'"n$:n$ 
EFT$(n$.I 
100 aS FNder$(a$0n$) 
110 PRINT aS 
120 GOTO 90 



Amnesia 

Para explicar la utilidad de este ti- 
po de estructuras vamos a imaginar 
un sencillo juego. 
Un jugador dice una letra del al- 
fabeto y el otro le contesta con otra, 
el juego termina cuando uno de ellos 
repite una letra, Io cual le descalifi- 
La labor de nuestro Amstrad va a 
ser, en esta ocasi6n, doble. Ejerce- 
r6 como es natural la funci6n de ju- 
gador y por otro la de 6rbitro Ilevan- 
do el control de las letras ya dichas 
y sancionando las repeticiones. 
Tenemos tres formas para abordar 
esta empresa. La primera seria que 
fuese sacando una letra al azar ca- 
da vez que fuese su turno. 
Sin embargo, esto no seria muy 
justo por nuestra parte. F6cilmente 
Iograriamos alzarnos con la victoria 
ante la inconmensurable estupidez 
de nuestro Amstrad. La segunda es- 
trategia seria aprovechar el hecho 
de que en todo momento, nuestro 
CPC, conoce las letras ya utilizadas, 
impidi6ndole, previa consulta, las re- 
peticiones. En esta ocasi6n seriamos 
nosotros los que estariamos total- 
mente fuera de juego, nuestro pro- 
grama seria un verdadero experto, 
permiti6ndonos como mucho, si su 
memoria es superior, las tablas. 
La tercera forma, la que vamos a 
elegir en el desarrollo de nuestro 
programa, consiste en basarnos en 
una ley que nosotros supondremos 
axiom6tica: ((Olvido primero Io pri- 
mero que aprendo. Es decir, aplica- 
do a nuestro caso, si se dicen las le- 
tras P, D, N, T, W, K, L y R, por este 
orden la primera que olvidar6, si he 
de olvidar alguna, es la P. 

IO EEM--AMNESIA - 
20 EM-deflni-1on d funczons- 
-0 OFF FNid$(cola$.neo$) cola$÷neo$ 
4' DEF FNder(cola.n) RIGHT(co 
60 OD 
70 ]NFUT "CANTA ITNAS U]E-E Q 
UF ECUERDE ('-28 ". mem 
0 me,or  aS=SPACES 
90 CLS 
Of LOFAF 7. Ir: INFUT "TU JUFGAS:". 
t u$ 
I lO tu$ UF'FER$(tu$) : IF ASC(Lu$) .'b5 
OR ASCtu$)'90 THEN 100 
120 tu$=[ EFl {tu$. 
IxO IF INSTR(drha$.tu$) bO THEN men 
sae$=" U FIERDFS":GOTO 2. 
14 memor i a$-FNder$ (memorl 
150 d cha$-f 
16( yo$-CHR$ (65+RND26) 
17: IF INSTRmemorla$.yo$) I tHEN 
80 LOCATE 7,12:PRINt 
l#fl memor  a$-F Nder $ 
IF INSTR(dlcha$.o$) .I THEN men 
21r dlcha$ FNid$(dlcha.yo$) 
-'r GCIO XOCI 
%U EM--fn del juego-- 
?0 Cl 
fl lOCATE 12. 12:PRINF mensaje$ 

Uso de colas como 
estructuras 
de datos (queues) 

Lo forma en que creoremos esta 
memoria pseudohumana, ser6 apo- 
y6ndonos en las colaS. 
Definiremos dos de estas estructu- 
ras, una en la que iremos anotando 
todas las letras que se digan, tanto 
por parte nuestra, como por parte 
de nuestro Amstrad. Mediante esta 
cola podremos en todo momento sa- 
ber si las letras que se vayan dicien- 
do en el transcurso del juego, han 
aparecido ya en algOn momento. 
La segunda cola que definiremos 
ser6 utilizada como la memoria que 
queremos simular. Esta tendr6 una 
Iongitud m6xima de forma que po- 
dremos controlar el n0mero de letras 
que nuestro CPC va a poder recor- 
dar en cada momento del juego. Da- 
da la corta Iongitud del programa, 
tecl6elo y 0selo unas cuantas veces 
antes de intentar comprenderlo. Pa- 
ra hacer que la cola, <memoria>> de 
nuestro ordenador, utilizaremos la 
funci6n, antes definida, que realiza 
la inserci6n por la derecha, perdi6n- 
dose un elemento por la izquierda. 
Veamos de forma somera y r6pida 
el desarrollo del programa. 
En las Iineas 30 y 40 se definen las 
funciones que vamos a necesitar. Re- 
cu6rdese que FNidS (colaS, neoS)in- 
corpora el elemento neoS a la cola, 
mientras que FNderS (colaS, neoS) 
incorpora el elemento neoS a la co- 
la, a la vez que le hace perder su pri- 
mer elemento. 
En las lineas 60 a 90 se prepara el 
juego, se pone la pantalla en modo 
0, caracteres grandes, y se nos soli- 
cita el n0mero de elementos que 
nuestro CPC va a (poder recordar. 
En la linea 90 se crea la variable 
memoriaS, donde se guardar6n 
tos elementos, con una Iongitud igual 
al nOmero de elementos elegido. Ini- 
cialmente y como era de esperar, s- 
ta se encuentra vacia (formada por 
espacios blancos). 
En la linea 100 y 110 se nos solici- 
ta la letra que queremos, decir. La 
misi6n de la linea 110 es convertir el 
car6cter en may0sculas y comprobar 
que ste es una letra, mediante los 
c6digos ASCII, en caso de no serlo, 
la jugada ser6 invalidada solicit6n- 
donos una nueva letra. 
Mediante la linea 130 comproba- 
mosque la palabra que decimos no 
se encuentre en dichaS, segunda de 
las anunciadas colas. De ser asi la 
variable mensaie se cargar6 con 
"TU PIERDES", enviando la eiecuci6n 
a la linea 230, donde se dar6 el jue- 
go por finalizado tras presentar en 
pantalla el contenido de mensajeS. 

En la linea 140 incorporamos esta 
nueva letra, elegida por nosotros, a 
la memoria de nuestro CPC, elimi- 
nando el elemento m6s antiguo. 
En la linea 150 aadimos a dichaS 
la nueva letra. 
Ahora le toca jugar a nuestro 
Amstrad, en la linea 160 elige una 
letra, realmente elige un nOmero al 
azar entre 65 y 90, transform6ndo- 
Io posteriormente en el simbolo, 
CHRS, al que representa. 
Mediante la linea 170 nuestro CPC 
consulta si "recuerda" que esta le- 
tra estuviese ya dicha. Es decir, ins- 
pecciona si est6 contenida en memo- 
riaS, de ser asi volver6 a la linea 160 
para elegir una nueva letra. 
En el caso de no "recordar" que 
esta letra hubiese sido dicha se 
arriesga a decirla (lFnea 18), miran- 
do posteriormente si 6sta se habia o 
no dicho (lnea 20), antes en la li- 
nea 190 habr incorporado esta 
nueva letra en su "memoria", <olvi- 
dando>> otra de las letras dichas. 
Una vez verificado si est en 
dichaS, de estarlo la ejecuci6n se en- 
via a la linea 230, con la variable 
mensajeS cargada con "YO PIER- 
DO"; apunta esta nueva letra en la 
cola dichaS mediante la funci6n 
FNidS. 
En la linea 220 la ejecuci6n es en- 
viada a la linea 100 para proceder 
a la siguiente jugada. 
Como ven el desarrollo del juego 
es bastante f6cil de seguir, pueden 
incorporar en el programa dos 6rde- 
nes para imprimir las variables 
dichaS y memoriaS, pudiendo obser- 
var de este modo su evoluci6n. 

AI final 

Hasta aquitodo Io que puede de- 
cirse sobre las cadenas alfanum6ri- 
cas y su tratamiento, el resto ya no 
es hablar sino hacer. 
Naturalmente aquellas cosas que 
pueden hacerse con funciones deft- 
nidas por el usuario tambin pueden 
hacerse de otras formas. En progra- 
maci6n aunque no todos, si muchos 
caminos conducen a Roma, el caso 
est6 en no tener que pasar por Nue- 
va Delhi. 
Por otra parte, la elegancia, rapi- 
dez y economia deben ser puntos 
siempre presentes en la programa- 
ci6n y sin duda el uso de funciones 
definidas desde el teclado es una 
buena arma para el Iogro de este 
objetivo. 
Si ha Ilegado a esta linea, enhora- 
buena, el reino de las cadenas es suyo. 
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programa fuente en un  Permite trabajo directo 
" sobre disco, bien en 
hexadecimal o ASCII, recuperar 
ficheros perdidos o borrados, 

I / famoso C-Hisoft para 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
i v binario y ASCII. Incluye 
editor ED 80 compatible 
PAC  WORDSTAR. 
Ensamblador/des 1.5.000 
Confi 
GEN 80: Macros, 
disco, ensamblador condicional 
manipulaci6n bit a bit. MON 80: 
Monitor y debugger, puntos 
e ruptura y presentaci6n 
memoria. 

programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
WORDSTAR. 

mplementaci6n total del 
MODULA-2 para 
CP/M. Comp.ilador en un 
Onico paso, listo para ser 
linkado. 

"ransforme su impresora 
en una imprenta. Permite la 
impresi6n en 8 tipos distintos 
de letras; configurable para 
Jier impresora. 

19.900 
otas. 

Permite realizar grficos ptas. 
sofisticados en su impresora. 
Grlificos de pastel, histogramas 
comparativos, gr ficos de lineas, 
Imgenes de o PI×ELS de 
densidad. 
MULTI-TEXT 
Mdulo de textos -.10.900 
M6dulo de textos, ptas. 
preparado para ser 
empleado con nuestro Ipiz 
ESP o con las teclas de 
cursor. 

Nueva versi6n mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 

capacidad en grlificos. 
6.200. 
ptas. 
i 

alterar y/o proteger 
directorios, todobajo 
TORCH AMSDOS y CP/M. 
Tulor de CP/M 
Disefiado especificamente 7.900 
para AMSTRAD. Incluye ptas, 
THE WAND, creador de mens 
de programas. 

POLY 
TYPEFACES 
Multitipos 
Afiade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresi6n 
a los ya existentes. 

l'9.900 
ptas. 

FIRST 
STEPS 

POLYMAIL 
Mailing 
Sencillo sistema de 
MAIL-MERGE. Id6neo para 
producir circulates. Incluye 
editor. Permite la realizaci6n 
de etiquetas autoadhesivas.' 

WRITE 
HAND MAN 
7.900 Sidekick en CP/M 
. tas. Residente en memoria, sin' 
interferir en su programa  
principal le ofrece: Calculadora 
(Hex-Dec), Block de notasy  _ 
telEfonos, Calendario, 
CATALOG Directorios, etc... 
Clasificador 
Asigna a cada disco un 1 ,I,900 
nOmero de serie y adems \ 
indexa y cataloga los fichefos 
en ese disco. 

Tutor de Newword 
Explore las enormes 
capacidades del procesador 
de textos NEWWORD; 
desde los fundamentos 
proceso de textos. 

'TYPING 
g' ASH COURSE 
6.900 Inicia a teclear 
, tas. Curso de iniciaci6n a los 
teclados, recomendado para 
personas no acostumbradas a 

7.000 
ptas., 

IVA 
incluido 

cintas audio con 
instrucciones claras para 
rendizaie y apoyo al manual 
I tratamiento de textos 
LOSOSCRIPT. 

Conozca a fondo las otas. 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de s61o dos. 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 
Ofites Avda. Isabel II, 16-8 ° 
Tels. 455544 - 455533 
Inform  tica Tlex 36698 
20011 SAN SEBASTIAN 
CONDIClONES ESPEClALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAA 



SlNTETIZADOR 
DE VOZ EN CASTELLANO MHT... 

PORQU ' SU AMSTRAD 
SOLO LE FALT; BA HABLAR 

Utilizable con los modelos 
AMSTRAD, CPC 464, CPC 664 y 
CPC 6128, el programa que controla 
este sintetizador, contiene las reglas 
b.sicas de pronunciaci(n en caste- 
llano y permite su funcionamiento, 
tanto en modo directo, como bajo el 
control de un program& 
Software de manejo: 
Presentado en cinta, tiene la 
posibilidad de copiarlo en disco o en 
otra cinta para poder realizar copia 
de seguridad. 

Viene preparado para poder 
usarlo desde: 
-Basic: Genera cuatro comandos 
de muy f.cil uso, cubriendo todas 
las necesidades de manejo. 
-C6digo m.quina: Esta forma de 
utilizaciSn estA orientada a aquellos 
usuarios que poseen un amplio 
conocimiento del c6digo mAquina. 
Incluye amplificador de sonido 
con mando de volumen. 

MHT ingenieros 

Le esperamos en nuestros stands 9 y 10 de la 1. a Feria Amstrad, desde el 23 a125 de Mayo 

DISTRIBUIDO POR LSB, S.A. C/. SANCHEZ PACHECO, 78. 28002 MADRID. TEL. 4139268 



induda 
al,una 

A tray,s de esta secci6n se pre- 
tende resolver, en la medida de Io 
posible, todas las posibles dudas 
que atormenten)) a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
trenen cualquier nivel de destreza 
en su .nanejo. 
Semanalmente, aparecen en estas 
p6ginas las consultas de la mayor 
cantidad de usuarios posible; ella re- 
dundar6 en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a trav@s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

Soy poseedor de un CPC-664 y me 
gustaria acoplar un cable para cas- 
sette. Aunque me informaron en el 
establecimiento donde Io compr6, 
yea que los cassettes tienen dos cla- 
vijas (micphones) y para el cable, ha- 
ce falta afro (REM). D6nde se aco- 
pla 6ste? Tambi6n queria que me in- 
formaran sabre <4as teclas progra- 
mables>>. 
Muchas gracias. 
J.F.A.B. (Valladolid) 

La mayarfa de los cassettes norma- 
les, na necesariamente adaptados a 
ardenador, poseen un conector RE- 
Moto clue permite al ordenador en 
cuesti6n controlar el motor de la gra- 
badora, coma es el caso del Ams. 
trcd. El cable clue vende Indescomp 
u atras tiendas debe tenet tres canec- 
tares y la persona que le vendi6 el 
cassette debiera estar informado de 
ella, y, consecuentemente, propor- 
cionarle uno clue se adapte a esa es- 
pecificaci6n. 

Aprovecho la ocasi6n para deciros 
que hab6is tenido una gran idea al 

invertir en el Amstrad pues tiene 
gran futuro dentro de Io que cabe. 
Buena, mi problema es el siguien- 
te: 
No hace mucho compr6 la unidad 
de disco externa, pues yo tengo el 
CPC 464 y mi sorpresa rue maygscu- 
la al comprobar que no acepta ha- 
cer MERGE trabajando con discos. 
Mi 0nica salvaci6n es pasar uno de 
los dos programas que quiero unir a 
cassette y cargarlos a continuaci6n 
del primero, que Io hago desde dis- 
co. 
Tengo entendido y comprobado 
que no existe este problema en el 
664. Y tambi6n he oido comentarios 
en revistas inglesas de que el sistema 
operativo AMSD©S, en principio rue 
una chapuza de nuestro amigo ALAN 
SUGAR. 
Es esto cierto? y si Io es, c6mo 
puedo solucionar mi problema? Sin 
m6s que deciros, as saluda atenta- 
mente. 
Joaqu[n Bueno Caro (M61aga) 

Efectivamente fienes raz6n. El 
Amsdos de/454 es un poco ¢¢chapu- 
zany. Sin embargo, tu problema tie- 
ne fdcil saluci6n, si es que te ocurre 
Io que nasotros suponemos. 
Probablemente suceda que, al 
darle al disco la arden MERGE, te 
encuentres con un mensaje de error 
del tipo ,EOF MET, o alga pareci- 
do, obteniendo coma resultado final 
de tu intento nada de nada. 
En el caso de145#, debes salvar en 
el disco el programa que cluieras 
¢¢mergear; en formato ASCII, coma 
se especifica en el Manual de Usua- 
rio, esto es, con la opci6n ¢¢A. Par 
e/emplo: 
SAVE PROGRAMA, A 
Un programa grabado en disco de 
esta manera, realizar6 el MERGE 
con otro presente en memoria per- 
fectamente, o al menos a nosotros 
siempre nos ha funcionado hasta 
ahora. 

Corto y pega esPe cup6n en la casilla 
correspondiente de la p6gina 16 del 
n0mero 31 de AMSTRAD Semonol, 
uno vez ompletodo Io p6gino, 
envianosla junto con tus datos, iSUERTE! 

FUNDAS PARA TU AMSTRAD 
464-472-664 y 6"128 ....... 2.262 
8256 ................... 3.250 
,Joystick Quickshott II ...... '1.975 
Pago reembolso, ms 250 pros. de 
gastos de envio. 
Indicar modelo y monitor [verde o co- 
lor). 

Podidos a: BAZAR POPULAR 
Apartado 27.040 
08080 BARCELONA 

OPERA CION CAMBIO 

P2sate a monitor color por 
25.000 ptas. 
Valoramos: 
Tu Amstrad 464 en 50.000 ptas. 
Amstrad 664 en 60.000 ptas. 
En la compra de un Amstrad 
CPC 6128. PCW8256. PCW8512 
Consulte para momtor color 
 (91) 270 34 97 de 4,30 a 8,30 

,, PUBLICIDAD 
GABINETE DE INFORMATICA 
• Clases de Inform6tica 
sobre AMSTRAD 
En grupos e individuales. 
• Ordenadores AMSTRAD y 
perifricos 
Los meiores precios 
• Software: Estcndar y a la medida 

ZURBANO, 4410 47 63 
28010 MADRID 
MECA.SCfllB 

El Curso de Mecanografia para el AMSTRAD PCW 8256. 
iilMPORTANTE PARA ACADEMIAS!! 
o Gestin de alumnos. 
o Capacidad para 60 alumnos. 
en un solo diskette. 

Pedidos a: 
EDUCOMP, S,A. 
C/Molina de Arag6n, 1. 
Tel. (911) 2232 12 
19003 GUADALAJARA 
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Presenta: 

Inform  tica 

d I#piz que gusta deck 
mientras nuestros competidores dicen no 

UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES ESP 
:lii[ 1 
:111,[ I 

TRASLADO DE CURSOR 
CAJAS ELASTICAS 
LINEA ELASTICA__ 
TRIANGULO ELAST1CO 
ELIPSE ELASTICO . 
DIAMANTE ELASTICO SI 

POLIGONO ELASTICO Sl 
HEXAGONO ELAST1CO  
OCTOGONO ELASTICO 
CUBO ELASTICO  
PIRAMIDE ELASTICA l S[  
CIRCUNFERENCIAS I SI  
C1RCULOS RELLENOS [ SI I NO I 
CAJAS RELLENAS Sl [ NO 
1 
ELIPSES RELLENAS SI I NO 
CUNAS SI NO 
ilul 11.1 I LR ]::q. ],| , SI NO 

18 TOBERAS MOSTRADORAS 

4 MEZCLAS BASICAS 

VARIADOR DE MEZCLAS 

SOMBREADO DE MEZCLAS XOR 
FICHERO ICONOS RESIDENTES 

FICHERO RELLENOS RESIDENTES 

26 COLORES DE PAPEL 

PALETA DE 15 TONOS DE COLOR 
.... POSICIONAMIENTO DE PUNTO 

RAYOS DESDE UN PUNTO FIJO 
DIBUJO REFLEJADO (ESPEJO) 
FUNCION HOME 

DISENO DE ZOOM SI SI 
IMAGEN ESPEJO E ffqVERTIDA I SI NO 
FOND-DERENCIA 
REJILLA DE FONDO _- 
OPCION DISPLAY X, Y S[ I NO I 
RELLENADO  SI SI 
LAVADO DE COLOR I S1 NO -- 
VOLCADO PANTALLA RESIDENTE SI 
DIBUJO DE BORDES EN 3 D SI NO O 
TEXTO SI SI 
9 TAMAOS DE BROCHA 
I si NO 
I s[ i NO 
SI SI 
SI NO 
I Sl NO 

CONTROL DESDE TECLADO 

I Sl NO I 
SI SI 
Sl NO 
I m ? i 

CONTROL CON JOYSTICK 
DISPONIBLES MODOS 1 Y 2 

DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS 
40 F INCIONES MAS eUE NUESTRO LAPIZ ES CAPAZ DE HACER. 
tl 't BL:P,',: 
' 464 ' : ..................... 4.900 ' 
• ', 44-61 ,I CO ++ 6.900 Pt. 
• '. 6128 D, , ...+ .. 6,900 
(ffA no i.duidu) 
 OON'S .' 'i, , ', '¢ ISTUORE. 

tl 

ESTOS SON 
ALGUNOS EJEMP 1 S 

DE LOS GRAFICOS QUE VD. 
PODRA REALIZAR CON NUEST' t 

LAPIZ OPTICO 

DE VENTA EN LOS MF.JORE. t', '   
DE INFORMATICA 
. i Vd. lien. alguna dificuRad para obtener el l:plz 6ptlco, 
puede dirigi :. a: 
Avda. l... bel II, 16 -8* 
fit m -- 3 
Informtica T,+, 9s 
20011 SAN SEBASTIAN 



Merccld.O 
colnun 

Con el obieto de fomentor los rela- 
clones entre los usuarios de AMSTRAD, 
MERC,4DO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ojusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventos, compras, clubs de 
usuorios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envlonos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
IABSTENERSE PIRATASI 

Vendo 1.--Amstrad CPC-664 
con pantalla color. 2.--Impresora 
PRINTER-80 INDESCOMP 
(adaptada a Amstrod) matricual, 
40-80-142 col; 80 cps; 640 puntos 
grficos. 3.--Juego regalo: 
COMBAT LINX y otros. Precio 
total: 160.000 ptas. Tel. (93) 
788 07 53 (21,30-22,30). 

Me gustaria en primer lugar 
contactar con usuarios de CPC 
464 paro intercambiar ideas, 
juego, etc. (a set posible de Avila 
aunque no necesariamente). En 
segundo lugar me gustara 
obtener el Exploding Fist. Bien par 
dinero o bien par arras 
programas. Tamblgn estoy 
interesado en: Beach Head, 
Hypers Sports, Decatlhon, Fighter 
Pilot. Con las mismas condiciones 
que Exploding Fist. Estoy abierto a 
otras ofertas. Los interesados 
Ilamar al (918) 22 74 99 desde las 
6 alas 6,30 o bien de 8,30 en 
odelante. Fines de semana a 
cualquier hora. 

Camblo juegos excelentes de 
todo tipo (knight Lore, Alien 8, G. 
P. Rally li, Exploding Fist, etc.) 
Tambi6n utilidades. Escribir a 
Jes0s Alonso, c/Ruiz 9 4.°C, 
Madrid 28004. Tambi6n Ilamar 
desde las 22,00 al 448 98 05. 

Vendo Amstrad CPC-464, 
monitor color en perfecto estado, 
incluyendo late de 50 programas 
a escoger entre m6s de 100: 
DEVPAC/AMSWORD 
II/PASCAUAMSBASE SCREEN 
DESIGNER/AMSCALC .... 01timos 
juegos, 7 liBros. Todo par 85.000 
ptas. M6s informaci6n: Ellseo 
Gonz61ez Real c/Pereo, 4. Viveda 
(Cantabria). Tel.: (942) 88 48 24. 

Estoy Interesado en comprar un 
monitor color, o cambiarlo par 
uno GT/65 con garantia 
Indescomp, comprado hate 2 
meses, pagando la diferencia 
justa. TombiCn cambio juegos, 
programas, utilidades, etc., tengo 
unos 100: mandar lista. 
Interesados dirigirse a: Urb. Bahia 
de Algeciras Bloque 2C-2: 2.°C. 
Algeciras (C6diz)... Manolo 
Benitez. 
Amstrad, de Gandia y 
alrrededores, para ofrecerme 
coma profesor de programaci6n 
(200 ptas/h). O para intercambiar 
listados e ideas. Abstenerse los 
maniticos de los juegos. Santiago 
Torrego Colabuig. c/Abad Sola, 
92, Ganda (Valencia). 

Desear|a contactar con usuarios 
464 para cambio de utilidades y 
programas. Interesados escribir a: 
Juan Carlos Martinez Liz6n. C! 
Pedro Diaz, 12, 1. ° A. Cartagena 
(Murcla). 

Vendo o camblo programas de 
Amstrad. Usuarios de toda 
Espafia interesados, escribir a 
Carlos Rib6 Vilaseca. 
Urbanizaci6n Mirasol, 1, Solana 
(Lrida) o Ilamar al tel. (93) 
811 28 35 para Ilamadas de fuera 
de la povincia de Barcelona. 
Llamar de 1,30 a 3,00 y de 8 a 
9,30. 

Vendo Amstrad CPC 464 con 
monitor en f6sforo verde. Manual 
y 100 programas (juegos, 
aplicaciones...) induidos. 
Interesados Ilamar al (91) 
260 79 94. Preguntar par Juan 
Carlos de 3 a 5. 

Camblo iuegos excelentes de 
todo tipo (knight Lore, Alien 8, 
P. Rally li, Exploding Fist, etc.} 
Tambin utilidades. Escribir a 
Jes0s Alonso, d Ruiz 9 4.°C, 
Madrid 28004. Tambin Ilamar 
desde las 22,00 al 448 98 05. 

Yendo consola de videojuegos 
Atari-2.600, un joystick, 5 
cartuchos, Defender, Berzeck, 
dog'em, Space Invaders, y Missile 
Comand. M6s 2 mangos de 
paleta, m6s instrucciones en 
castellano, cables, etc.; todo ella 
casi nuevo y en pefecto estado de 
funcionamiento. Adems 5 revistas 
de Microhobby (Spectrum). Todo 
ella par 19.500 ptas. 
(negociables). Interesados Ilamar 
al tel.: 23 51 14 de Murcla. 
Preguntar par Javier (llamar a 
cualquier hora de la tarde de los 
s6bados). 

LE 
CONCEDEMOS 
TRES 
DESEOS 

I 
.  ill 



' NT , 6" K. 
Los 64K de memoria que esperab, su Amstrad 
Amplia¢i(n de memoria, buffer de impresora y ram disk* 

ANTA 64k.3 

Si tiene un AMSTRAD 
CPC 464, CPC 664 o 
CPC 6128 con6ctele el 
ANTA 64K.3 y seleccione 
la opci6n que necesite: 
64K de Memoria 
Para leer y escribir datos, 
©adenas y bloques de ca- 
racteres, asi como copiar 
o trasladar pantallas. 
64K d, Blffere- 
Im. resora 
Permite seguir trabajando 

con el ordenador mlentras 
la impresora funciona. 
64K de Ram 
Disk/Basic 
La memoria simula el fun. 
cionamiento de un dis. 
co con mejor tiempo de 
' acceso. 
*Software de manejo con. 
tenido, en ROM. 

DISTRIBUIDO POR LSB, S.A. C/. SANCHEZ PACHECO, 78. 28002 MADRID. TEL. 4139268 
Le esperamos en nuestros stands 9 y 10 de la 1. a Feria Amstrad, desde el 23 a125 de Mayo 



MEMO'I' 

DE ,," ' NT' L 

Les envio una pequea subrutina que pre- 
tende ayudar a conocer de manera rapida el mapa de pan- 
talla de un locate en modo cero. 

ESTRUCTURA DEL PROGRAMA 

1-2 
20 
30-100 

110 
120-140 

150 

160 
170 

180 
190 
200-210 

Cabecera. 
Dimensionamiento de variables. 
Mediante bucles se introducen en la va- 
riable PiN (N, N) las direcciones de me- 
moria de los ocho primeros pixel vertica- 
les de cada una de las cuadricuJas de la 
primera columna de pantalla. 
Establece modo de pantalla. 
Pregunta pot el locate que ha de anali- 
zar. 
Resta a la coordenada x una unidad, e 
imprime los n0meros 1 al 4 indicativos de 
los pixel. 
Bucle que contabiliza los ocho pixel ver- 
ticales. 
Introduce en la variable pin1 (1, n) los va- 
lores de las direcciones de memoria de 
la cuadricula de coordenada (1, y) y los 
multiplica pot el factor (x*4). 
Imprime primero el n0mero de pixel y 
despuds sus valores en hexadecimal. 
Cierra bucle. 
Espera pulsaci6n de una tecla 
(CALL&BB18) y vuelve a eiecutar el pro- 
ceso completo. Rafael Morales Navarro 

1 ............... RAF AEI MORALES NAVARRO ........... 
2 "- ........ MAF'A DE PANTALLA EN MODO CERO ........ 
20 DIM pin (2b,8),pin1(iS) 
30 pr i mero &CO00 : u I t z mo-&FSO0 : punta 0 
40 FOR y i TO 2b 
50 FOR a primero TO ultimo STEP &BOO 
60 punto punto +I 
70 pin (y, punto)-a 
80 NEXT a 
90 pri mero=primero+&50: ul timo-ul timom&50: punto-O 
I00 NEXT y 
110 MODE 
20 PRINT"DE QUE <LOCATE> QUIERES SABER 
ING$(40 .... )"MEMORIA EN MODO 
130 LOCATE I6= INPUT"X";X:IF 
6:PRINT .... :GOTO 130 
140 LOCATE I8:INPUT"Y"Y:IF 
B PRINT .... :GOTO 140 
50 X X-I :PAPER I :PEN 0: LOCATE 15, IO:F'RIN"LOCATE" (X+I 
","Y:PAF'ER O:PEN I:LOCATE 
4":[ OCATE 7 13:PINT STRING$(25, ' .... ) :PRINT 
160 FOR A I TO 
170 PINI 
180 PRIHT A SPC(3) HX$(PINI(IA))SPC(3) HX$(PINI(IA 
+I) SPC(3) HEX$(F'INI(I,A+2) SPC(3) HEX$(PINI(IA}+3) 
190 HXT 
200 LOCATE 125:PRINT"pula'una tecla para continuar":C 
ALL 
DlO GOTO II0 

A usted, minorista, y con s61o marcar este 
telfono, le concedemos Io que siempre ha 
esperado de su mayorista informtico. 

1 Todas las marcas, Amstrad, Spectrum, 
Commodore... para que con una sola 
Ilamada, usted tenga todo Io que 
necesita. 

2 Rapidez en el servicio. Le entregamos 
su pedido en 24 horas, sin demoras y 
en cualquier punto de EspaSa. 

3 Trato directo. Mantenemos un contacto 
continuo con usted, nos preocupamos 
por sus problemas y le ayudamos a 
solucionarlos. Queremos que usted sea 
algo ms que un cliente. 

Si es esto Io que pide a su mayorista, 
LLAMENOS 

LISTRIBUCION 

INTROLIN  ,s.4 

CU 'LIMO 
SUS I ESEO 

/oEoY AMSTRAD 45 



C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 
Aparcamiento gratuito en Felipe II 

SOFTWARE: |i 2 PROGRAMAS POR EL PRECIO DE i!! 
Y adem6s, completamente gratis, un magnifico reloj de cuarzo. Increible ;verdad? 

Ptas. 
PING PaNG 2.295 
SABOTEUR 2.295 
RAMBO 2.295 
YIEAR KUNG FU 2.295 
WORLD SERIES BASEBALL 2.095 
MAPGAME 2.750 
RAID 2.295 
HYPERSPORTS 2.295 
HIGHWAY ENCOUNTER 1.750 
HIGHWAY ENCOUNTER DISCO 3.300 
ALIEN B 1.750 

DYNAMITE DAN 
SABRE WULF 
THEY SOLD A MILLION 
FIGHTER PILOT 
MASTER OF T. LAMP 
NIGHIT SHADE 
HACKER 
SUPER TEST 
TORNADO LOW LEVEL DISCO 
TORNADO LOW LEVEL 
KNIGHT LORE 

Ptas. 
2.100 
1.650 
2.500 
1.975 
1.950 
1.95O 
1.950 
2.300 
3.300 
1.750 
1.750 

SOFTWARE DE REGALO: iiOFERTA 2 x 1!! 
Beach Head 
Fabulos°\mstrad 
n r e c i _o s._ 4r4a ( C' 28 
r pC.51 z 

Decathlon Dummy Run Beach Head Southern Belle 
SOFTWARE DE GESTION PROFESIONAL 

DBA II 17.800 DR. GRAPH 
CBASIC 15.100 CONTABILIDAD 
DR DRAW 15.100 Y VTOS. 

15.100 
16.600 

IMPRESORAS 
ii20% DTO. $OBRE P. V.P.!! 

UNIDAD DE DISCO 51/. '' 
PARA AMSTRAD 
34.900 PTAS. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTA5. 

CINTA VIRGEN ESPECIAL ORDENADORES . 
69 PTAS. 

JOSTICK QUICK SHOT II 
1.995 P'rA$o 
JOYSTICK QUICK SHOT V 
2.295 PTAS. 
con la compra de un joystick 
iiGIATIS 1 IELOJ D6 CUARZO!! 

DISKETTE 514 '' 
295 PTAS. 

DISKETIE 3" 
990 PTAS. 

Pedidos contra reembolso sin ninggn gasto de envlo. Tels. (91) 275 96 16/274 53 80, o eseribiendo a Micro-1. C/Duque de Sesto, 50.28009 Madrid 



LO NUESTRO ES HACER BUENAS GESTIONES 
PARA 

AMSTRAD, PC Y COMPATIBLES 

para uegos ! 

DEMOSTRACIONES DE NUESTRO SOFTWARE 
COMERClAL Y DE GESTION 
EN NUESTRO STAND 

les esperamos en 

£ FERIA 
IHF|RILATICA  

PRECIOS ESPECIALES !. a FERIA AMSTRAD 

FACTURACICN - $61o teclee un cdigo y solen todos los dotos del cl¢nte. Numeroci6n corelativo cuLom6ico, Admire 30 prcductos 
distintos par focturo. Admire 30 productos distLntos par fc:turo. Autom6ticos, descuentos, cargos, IVA. Prc#orc£o 5 totoles 
par rocturo. (PVP 15.300 incl. IVA) 
PRESUPUESTOS - Guord en memorio los preupueslos y extiende los ?octuros. Cooceptos de 2CO coloctres coda uno (3 renglones de 
escfiluro) (PVP 18.3(30 Incl. IVA) 
CUENTAS - PROVEEDQRES, B/COS, CLIENfES - 3 flcheros seporodos. Redrncnes totoles, unitorios a porcioles. El meJor ouxilior d 
COifABILIDAD ok dio. (PVP 8.&CO incl. IVA) 
OZNTRCL DE ALACEN IVA - C4xigo de 9 digitos ol?ourficos. 25 dlgitos dencninoci6n. Uno solo pontollo entrodo y solidos, con 
visi&n de osientos onterlores. Stocks mSximo, mlnimo y oviso poro recprovlsiono'niento. Totoles entrodos y solidos coda pontolo 
(PVP 15.3(30 Incl. IVA) 
CLIENTES (con etquetos) - 11 compos distlnto poro 1ocollzociSn. Etiquetos 4 modelos distintos en solido de dos. El ms fie1 
cuxilior dorcdor de tiempo. (PVP 8.&OO nc1.1VA) 
RECIBOS - Resuelve el problemo Interminob]e o osociociones, comunidodes, colegios. FiJos los copos del normolizodo y 12 ccmpos 
I(4 numrlcos con c51culos utomSticas). Lquldociones boncos. (PVP 18.300 incl.IVA) Co numeoci6n otomico (21.200 
Incl. IVA). 
RESJRANTES - Trotoiento de minuto y focturos. Res0mene par grupos. Uesos oblertos permoetemente, carrecciones, co'nbios, 
etc. hosto emisI6n Fro. final. (PVP 33.000 inc1.1VA) 
IVA ¢K3R Ak - Relleno liquidociooe Hacienda. Intrcduco cuentos IVA gostos. (PVP 18.CO incl. IVA) 
URBANIZACIQHES - Lecturo y trotomicnto de conodores consumos. (oguo, gas, luz,etc) Extensi6n recibos y totolizociones bcncos. 
Emi si e lquetos. 
LIBROS DEL IVA - Controles e repercutido y oportodo arden numrico. ReOmene estudios comporotivos. Relleno liquidociSn 
ciendo. (PVP .8QO inc1.1VA) 
/WINISTRCICN DE FINCAS - Gesti6n completo profesic*oles. Sen¢illo moneJa cuolquier persona (PVP 40.OOO inc1.1VA) 
FAITURACIO4 Y ALK{ACI'N - Oesti unldo. Ficheros clientes, proucto, decuento y cargos. Todos los res6menes. (PVP 18.£00 incl.IVA 

I DE GARANTIA 

NUESTRO EQUIPO PROFESIONAL 
PARA CUALQUIER MODIFICACION QUE 
UD. INDIQUE EN LOS PROGRAMAS, A 
UN PRECIO MODICO 

Llamar o contactar con Juan Luis Ruiz 

PEDIDOS, TELEFONO, CARTA O TELEX 
REEMBOLSO SIN GASTOS. 
ESPECIAL A COLABORADORES 
RESTO DE ESPAI'<IA 

l i " IIlinform6tica 
till i I 

C/JAIME EL CONQUISTADOR, 27 
28045 MADRID Tno. 474 55 00 
474 55 32 
Tlex: IGSA 48452 



• I programa de gestlon de Emlrasa RPA Systems es un clare ejemplo de Io que 
debe ser una coluctdn Infonntlca. 
Una herramienlo eficaz que hace ms f II te terea de te Gestibn Emprasa " I, 
huyendo de inneceaas complicaciones. Porque para obtener el nxlmo 
rendimiento de los programas RPA Systems no es necesario saber prog ma . 
Con un lenguaje compilado de alto nlvel y contlnuas ayudas en pantallas, son mu 
f . iles de usar. Como el ptograma de Gestldn de Emprasas que,diset]ado para 
trabajar con los Amstrad 8256, 6128 y 8512.incluye los sut)preg mas de: 
Cont:bilidad General.'Nbmirlas, Factur ci6n, Fichere .de clientes y proveedore¢ 
Si es Usted pequeAo o mediano empresario en RPA Systems encontrar una 
eficaz ayuda para la ct sificacibn y cotret de cltentes, reallzacldn de facturas, 
totalizaclon de cobres y pagos, gelmracldn de neminas y contabilldad ajgstada • I 
plan general contable. 
Ademds. el pregrama de gestlon de empresa de RPA Systems permile Itevar un 
perfecto Dntrel de la aplicaclon del IVA 
RPA Systems es la respueste eflcaz a sus necesdedes de informatizciOn. 
Asi de sencillo. 
SOLICITE INFORMACION EN: 
Divisidn Infonntica de  C*, n . Division Online de LERIA$ 
Tlend s especi lizades en infonntica y Equlpos de ofictna. 

Distribuidor exclusivo en Espana: /:Jl:]*lf[-'-' [I  
Galileo. 25. En)raplanta A. Tel$. 547 97 51 / 98 .09. 28015 Madrid. 
Dlsttibuldor excluslvo e.n Catalunya . C DISTRIBUClON, S.A. 
Tarragona, 112, Tel. (93) 325 15 12. 08015 Barcelona. Telex: 93133 AGEE E 



